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This Programming professional deserves a 
lot more from his personal computer. 


standard SPF software, micro/SPF™ 
provides all the sophisticated utilities pro- 
sramming professionals expect. 


He’s earned it. As a seasoned professional, 
he’s learned to master some of the world’s 
most advanced programming tools. Tools 
specially designed to meet the everyday 
emands of programming experts. 


But as the owner of a personal com- 
puter, he’s come to expect less. Less 
erformance. Less sophistication. And less 
exibility. 


Why should programming a 
personal computer be any different? 


Prior to the announcement of micro/ 
SPF™ development software, experienced 
programmers felt programming a personal 
computer was a lot like playing with a toy. 
You couldn't take it seriously. 


But today, there’s micro/SPF;” a solution 
to elementary program editing tools now 
offered with most micro-computers. 


With micro/SPF™ you get the same 
procedures and commands experienced 
programmers are accustomed to using at 
work. By mimicking features found in 


Programming experts can take 
advantage of skills they've spent 
years perfecting. 


Now, for the first time, mainframe soft- 
ware is available for personal computers. 
SPF screens are fully reproduced in logical 
sequence and each screen is formatte 
identical to those found in the SPF system. 


In addition, micro/SPF™ comes equipped 
with the same primary and line commands, 
tutorial messages and program editor 
(with program function keys) experienced 
programmers are used to. 


Programming professionals who ve 
spent years perfecting the art of writin 
sophisticated code deserve to work with 
state-of-the-art tools, not toys. Find out 
how micro/SPE™ can help you do work- 
compatible programming on your 
personal computer today! 
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PHASER SYSTEMS, INC 50 WEST BROKAW ROAD 
SAN JOSE, CA 95110 


Z-80° and 8086 FORTH 


PC/FORTH™ for IBM® Personal Computer available now! 


FORTH Application Development Systems include interpreter/compiler with virtual memory 
management, assembler, full screen editor, decompiler, demonstration programs, utilities, and 130 
page manual. Standard random access disk files used for screen storage. Extensions provided for 
access to all operating system functions. 


£200 FORTE TOL CPIM) 2 2 ORME Asie oh att pds fe Ay has Ste ae ort Pos $ 50.00 
OSG POTTS erate ce a uk as aa ay goth a ek i $100.00 
PCIrOR tl torisM Personal Cormouter cs. i foe ee a yh we 2 $100.00 
Extension Packages for FORTH systems 
SM er OUINGE ONE cai Pa ag a Cee ay he tg tee a dle conn ee oda Be a $100.00 
Intel 8087 support (PC/FORTH, 8086 FORTH only).....:.... 0.0.00 cece ce ceccueny $100.00 
Aral aos) SUDPOTAZ-O0, Guao PORTH OM) | ee So St a eghre® $100.00 
Color graphics (PC/FORTH only) ...... BRR: Pea Re aE Re ie Bea RES Sage CUR, a AD $100.00 
ALA e MGVAUCIMONE Wea aire ink ie Sas ot ke oe tO Pe $200.00 
Symbolic Interactive Debugger (PC/FORTH only) ...............-eec--00---2 2. $100.00 
Cross Reference Utility .......... EERE SE? ech Rog re go Al) AR e ee a. 25 SURAT RR BRO $ 25.00 
Garry PORTTPETOOramiiiitng Aldea uh te he, vs Cote o RAL ed mos ores a es $150.00 
PC/GEN™ (custom character sets, IBM PC only) ............--ccceeecece eee... $ 50.00 


Nautilus Cross-Compiler allows you to expand or modify the FORTH nucleus, recompile on a host 
computer for a different target computer, generate headerless code, and generate ROMable code 
with initialized variables. Supports forward referencing to any word or label. Produces load map, list 
of unresolved symbols, and executable image in RAM or disk file. No license fee for applications 
created with the Cross-Compiler! Prerequisite: one of the application development systems above 
for your host computer. 


Hosts: 2-80 (CP/M 2.2 or MP/M), 8086/88 (CP/M-86), IBM PC (PC/DOS or CP/M-86) 
Targets: Z-80, 8080, 8086/88, IBM PC, 6502, LSI-11, 68000, 1802, Z-8 


Cross-Compilentor one host and. one targetaa 058g ry a oe ae $300.00 

Reach adciioiral tangepe she ae ee hye NS al ga Rate eas, $100.00 

AUGUSTA™ from Computer Linguistics, for CP/M2.2.................------202.00 00. $ 90.00 

LEARNING FORTH, by Laxen & Pee TOPOS Bid ete ORS pie ee he Re a me $ 95.00 
2-80 Machine Tests Memory, disk, console, and printer tests 

with all Source code in standard Zilog mnemonics......................--.......00. $ 50.00 


All software distributed on eight inch Single density soft sectored diskettes, except PC/FORTH on 5% inch soft sectored 
single sided double density diskettes. Micropolis and North Star disk formats available at $10.00 additional charge. 


Prices include shipping by UPS or first class mail within USA and Canada. Overseas orders add US$10.00 per package for air 
mail. California residents add appropriate sales tax. Purchase orders accepted at our discretion. No credit card orders. 


Laboratory Microsystems, Inc. 


4147 Beethoven Street 
Los Angeles, CA 90066 


(213) 306-7412 


2-80 is a registered trademark of Zilog, Inc. 
CPIM is a registered trademark of Digital Research, Inc. Augusta is a trademark of Computer Linguistics 
IBM is a registered trademark of International Business Machines Corp. PC/FORTH and PC/GEN are trademarks of Laboratory Microsystems 
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All you dBASE IT hotshots 


are about to get what you 
deserve. = aati 





You've written all those slick 
dBASE II programs. 

Business and personal 
programs. Scientific and 
educational applications. 
Packages for just about 
every conceivable informa- 
tion handling need. 

And everybody who 
sees them loves them because 
they're so powerful, friendly and easy to use. 

But that’s just not good enough. 

Uh-uh. 

Because now you can get the gold and the 
glory that you really deserve. 


Here’s how. 


We've just released our dBASE II 
RunTime™ application development module. 
And it can turn you into an instant 

software publisher. 

The RunTime module condenses and 
encodes your source files, protecting your 
special insights and techniques, so you can 
sell your code without giving the show away. 

RunTime also protects your margins 
and improves your price position in the 
marketplace. If your client has dBASE II, all 
he needs is your encoded application. If not, 
all you need to install your application is the 
much less expensive RunTime module. 


We'll tell the world. 


With your license for the dBASE II 
RunTime module, we provide labels that 
identify your program as a dBASE II applica- 
tion, and you get the benefit of all the 
dBASE II marketing efforts. 


We'll also provide additional “how to” 
information to get you off and running as a 
software publisher sooner. 

And we'll make your products part of 
our Marketing Referral Service. Besides put- 
ting you on our referral hotline, we'll publish 
your program descriptions and contact 
information in dBASE II Applied, a directory 
now in computer stores world-wide. 


Go for it. 


But we can’t do any of this until we 
hear from you. 

For details, write RunTime Applications 
Development, Ashton-Iate, 10150 West 
Jefferson Boulevard, Culver City, CA 90230. 

Or better yet, just call (213) dBASE’ 
204-5570. And get what you 
deserve today. 


ASHTON ‘TAIE 


©Ashton-Tate 1983. 
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LETTERS 


Xanadu Re-Edited 


Dear Dr. Dobb’s: 

Thank you very much for publishing 
our piece on the Xanadu Hypertext Sys- 
tem in the January issue of Dr. Dobb's. 
While we were delighted to get word of 
our system in front of an audience, the 
editorial process somehow managed to 
introduce a couple of errors which deserve 
correction. 

First of all, the article says that the 
Xanadu System is a currently available 
product. This is not entirely correct, and 
that was not how we wrote it. We are 
now marketing the system for large 
scale commercial applications, but we are 
doing so solely as a part of custom systems 
being produced on spec. While the system 
does work, it is as yet under development, 
and several more months of effort will be 
required before it will be a marketable 
product available “‘off the shelf.’’ We are 
still working on various more advanced 
portions of the system, including the 
versioning facility and historical trace. We 
have been giving demonstrations regularly 
and are now looking for our first major 
customer. We are prepared to offer 
custom systems for applications such as 
engineering project management, software 
maintenance and source code manage- 
ment, and business document handling. 
We are currently quoting delivery times 
of six months to a year for such systems. 


EDITORIAL 


Anyone interested should contact us for 
details, quotes or demonstrations. 

Second, the article is credited to me. 
While I was the person who sent you the 
Xanadu material, the piece that you 
selected for publication, out of the two- 
hundred or so pages that we sent, was 
written by our Executive Vice President, 
Chip Morningstar. Since it was he who 
put in the hours writing it, he should get 
the credit for it. 

We would like to talk with anyone 
interested in developing frontend systems. 
A preliminary protocol for frontend/ 
backend interaction is available for the 
asking to anyone setiously contemplating 
frontend work. Our frontend develop- 
ment currently takes place on our SUN 
(trademark SUN Microsystems Inc.) work- 
station in C under UNIX (trademark Bell 
Laboratories). A copy of the current 
frontend is also available to anyone 
seriously interested. Most of our energies 
have been devoted to getting the backend 
working, and there are a lot of interesting 
human-machine interface problems yet 
to be attacked. Again, interested parties 
should contact XOC for details. 

Thank you again. 

Sincerely, 

Roger Gregory, President 
XOC 

P.O. Box 7615 

Ann Arbor, MI 48107 





OK to Repeat 
Dear Doc, 

I’m writing this on the last day of 
1982. It has been a couple of years since 
I last wrote, but a passing comment in 
J. H. Peters’ letter in the January 1983 
issue has moved me to the tyepwriter. 


Mr. Peters’ letter was specifically 
concerned with JRT Pascal but, as an 
aside, included the comment that ‘Pascal 
includes what is probably the worst pro- 
gramming practice known to modern sci- 
ence: running once through a loop before 
making any tests (REPEAT. .. UNTIL).” 
This comment pushed one of my hot but- 
tons. That alone would not have sparked 
a letter except that this particular hot 
button has happened to be exercised re- 
peatedly in the last few months. 


REPEAT. ..UNTIL is not a program- 
ming practice at all. It is a tool provided 
by the language designer to be used, or 
not used, as may be deemed appropriate 
by programmers working in the language. 
This tool, like any other, may be left to 
rust in the toolbox or it may be used as 
needed when its use is deemed appropri- 
ate. 


One good example of an appropriate 
use of this tool is provided by Kernighan 
and Ritchie in The C Programming Lan- 
guage. In their itoa(n,s) function, it is de- 
sired to convert an integer, n, to an ASCII 


Welcome to our second ninety-six page issue! We are 
pleased to bring you more editorial pages than ever, and 
expect even more in the second half of 1983. As we grow, 
you will find more of the high-quality material that you 
have come to expect from DDJ. The increase in size will 
help ensure that the reader forum will continue to be pro- 
vided in our pages. This is one of the things that separates 
us from the crowd — the difference between editors and 
experts. 


* rr * 


This issue’s CP/M Exchange is the second of a two-part 
series on CP/M disk I/O. It marks Gene Head’s last month 
as columnist for the Exchange, though he will continue to 
operate his RCP/M system. We would like to thank Gene 
for all his fine contributions over the past months and look 
forward to continued input from his Oregon Head Quarters. 
Gene is passing the pen to Bob Blum. No stranger to DDJ 


or to the Exchange, Bob provided the current series on disk 
I/O, and he will begin a series on CP/M Plus in the May 
issue. We are glad to welcome him aboard. 


* * * 


A couple of months ago we mentioned the possibility 
of condensing some listings in order to highlight exemplary 
or instructive sections of code. The motivation was to get 
more information to you, not less. We fear this may have 
given rise to the misinterpretation that we were making a 
significant shift toward eliminating listings. Not so! Dr. 
Dobb’s has always been a forum for software and program- 
ming ideas. In keeping with our tradition, we will, of course, 
continue publishing complete listings. ...Are those sighs 
of relief we hear? : 


Reynold Wiggins 
Editor 
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ow you can run programs such 

as WordStar, dBASE Il, 
SuperCalc, MailMerge and vir- 
tually thousands of other CP/M- 
based programs on your TRS-80 
Model Ill. 

CP/M 2.2 is the industry stan- 
dard operating system that gives 
you access right now to over 
2,000 off-the-shelf business pro- 
grams. 

Our plug-in Shuffleboard III 
comes with 16K of RAM, giving 
your Model Ill the power of full 
64K CP/M 2.2 without inter- 
ference of the ROM or video 
memory. In fact, the Shuffleboard 
will appear transparent in the 
TRS-80 mode and will not inter- 
fere with any DOS operation. 


READ and WRITE Osborne, 
Xerox and IBM personal 
computer software plus many 
more popular formats. 
Unfortunately, there is no stan- 
dardized CP/M format for 5%” 
diskettes. But we have developed 
a way to READ/WRITE and RUN 
standard programs under the 
following single-sided formats: 
Osborne 1 S/D, Xerox 820 S/D, 
IBM PC* D/D for CP/M 86 only, 
Superbrain D/D, Kapro II D/D, HP 


125 D/D and TeleVideo D/D. 
*Will Read and Write Only. 


Easy plug-in installation. 

It’s so simple. The Shuffleboard 
[ll plugs into two existing sockets 
inside your Model Ill. There are no 
permanent modifications, no cut 
traces and no soldering. You'll be 
up and running 
in minutes. 











WordStar & MailMerge are trademarks of MicroPro. 
SuperCalc is a trademark of SORCIM. 


Put 64K CP/M 22 in your 
TRS-80 Model III and tap into 
2,000 business prograr 


New Products. 

80 x 24 VIDEO BOARD: Features 
dual intensity screen, programmable 
cursor control for block, underline & 
blink rate, on-board bell with audible 
keyclick, battery-operated real time 
calendar/clock, full ASCII character 
set plus 256 special character 
graphics, dual RS-232 outputs and 
composite video output. 

FLOPPY DISK CONTROLLER: Now 
you can access 54%" and 8” floppy 
disk drives in any combination up to 
4 drives of S/D density, S/D sided. 
Tap into a wealth of CP/M software 
which comes on 8” IBM 3740 format 
or Pickles & Trout CP/M for the Model 


i. 

SOF | WARE: Additional CP/M soft- 
ware programs are available. Call or 
write for details. 





OEM and DEALER inquiries 
invited. 
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dBASE Il is a trademark of Ashton-Tate. 
CP/M is a trademark of Digital Research. 
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Introductory price of 


S299 


The Shuffleboard III comes fully 
burned-in and tested complete 
with 64K CP/M 2.2 and MBASIC 
80 interpreter, plus software 
manuals and a first class user’s 
manual — with a 1-year limited 
warranty and 15-day no-risk free 
trial — for only $299. 


See the Shuffleboard III at 
your dealer’s now. 

Once you see what the Shuffle- 
board can do for your Model Ill 
you Il want one at once. If your 
dealer does not yet stock the 
Shuffleboard have him give us a 
call. Or send check, money order, 
VISA or MASTERCARD number 
(sorry, no COD’s) plus $5 shipping 
per board ($17 outside the USA & 
Canada)* directly to the address 
below. Cal. residents please add 
sales tax. Credit card purchases 
can be phoned in directly and 
we ll ship from stock. 

(415) 483-1008 


*Air mail shipments to Canada & all other 
countries. 


Memory” 
Merchant 


14666 Doolittle Drive San Leandro, CA 94577 
(415) 483-1008 


TRS-80 is a trademark of Tandy Corporation. 
IBM is a trademark of IBM Corporation. 





string at s. Leading zeroes are to be sup- 
pressed unless n has a value of zero, in 
which case a single ASCII zero should be 
generated. This exceptional case is neatly 
accommodated by passing once through 
the loop before testing for a zero value in n. 


Best regards, and best wishes in the 
new year. 
William T. Mitchell 
P.O. Box 94978 
Schaumburg, IL 60194 


Hardware Help 


Gentlemen, 

I would like to see a hardware article 
on making a dynamic RAM board using 
an Intel 8203 dynamic RAM controller 
(for 64K DRAMs) or 8207 (for 256K 
DRAMs). Intel has application notes on 
just such topics, but they provide only 
block diagrams (all of the ICs are listed) 
and I’d like to see a complete schematic 
of a working board. 

I’ve been looking for information on 
connecting a Model 33 teletype to my 
TRS-80 Color Computer and my Sinclair 
ZX81. I’ve been able to find a general 
RS232 to 60mA current loop interface 
diagram, but would like more specific 
information (my Model 33 TTY is set for 
20mA current loop). I’m sure many 
people have used Model 33 TTYs as print- 


CP/M Software 
WASH 


Easy to use directory maintenance utility 
that replaces a dozen older programs. 
Menu driven for fast directory display, view 
Or print, copy rename, delete. Also multiple 
copy and delete. Much easier to use than 
the CP/M utilities. ............. $49.95 


UNERA 
ERA *.BAS instead of ERA *.BAK can ruin 
your whole day. UNERA to the rescue — it 
recovers all ERAsed files for CP/M 2.2 
Floppy and Hard Disk Systems with 
Standard directories ............ $75.00 
FORMS-3 
Ideal fur filing out all kinds of forms. Fea- 
tures field editing for numeric, dates, etc.., 
justification, multipages, required entry. 
Can also use a separate data file.$40.00 
SUPERFILE 

Solves your filing problems. Menu driven 
information retrieval system for storing and 
quickly finding information. Features AND, 

R and NOT in search command. Sort, 
merge and split utilities included. Build data 
base with any CP/M editor. Computer 
Magazine Database 900+ entries included. 
with Demo Data Base & Manual $165 
Manual only(applies to purchase)$50 
Available 8” Single Density, North Star Single and Double 
Density, most 5%" soft sectored disks. 

ADD $1.50 SHIPPING AND HANDLING 


CALIF. RESIDENTS ADD TAX 


Slliam CAssociates 


24000 Bessemer Street 
Woodland Hillis, CA 91367 


S (213) 348-4278 = 


——$——— 

















ers, but I’ve been unable to locate any 
(sorry this note isn’t printed!). I’d greatly 
appreciate any help you could give me on 
this matter (both hardware and software). 


Yours truly, 

Timothy J. McIlwee 
Rural Route 2, Box 462A 
Dundee, IL 60118 


Forth Loader Fix 


Dear Dr. Dobb’s: 

I encountered some problems using 
the Forth Relocating Loader which was 
published in your September 1982 issue 
(No. 71). Upon examination, I found that 
the program was doing signed compari- 
sons of addresses instead of unsigned 
comparisons (i.e., using < and > instead 
of U< and U>). I corrected this in 
screens 10 and 11, and in 14 through 19, 
and everything worked fine after that. 

Thanks, and keep up the good work 
on your magazine. 


David J. Sieber 

Star Computer Systems 
20600 Gramercy Place 
Torrance, CA 90501 


DIR.ASM Problems? 


Dear DDJ: 

DIR.ASM, published in the CP/M Ex- 
change column in February 1983, proba- 
bly should not have been published at all; 
but since it was, it should have had the 
warning: ‘“‘Use this program at your own 
risk. It is untested.” 


I wrote the program in response to a 
request to give the readers code. After 
hurriedly submitting the untested pro- 
gram, I found it to be machine dependent 
in some cases and told the editor about 
the problems. I was assured a disclaimer 
would be included, and was told that the 
code was a good starting point for a bet- 
ter directory utility and maybe a chal- 
lenge to hackers to get operating on spe- 
cific systems. 


Since, then, I found SD-41.ASM in 
the public domain. This is a far better 
directory utility than DIR.ASM with 
more features and faster execution not to 
mention fewer (zero) known bugs. 


To those trying to get DIR.ASM 
working, I suggest you scrap it and get a 
copy of SD-41.ASM (and SD-41.DOC) 
from any RCP/M system. I apologize for 
any inconvenience and in the future will 
not make the mistake of releasing code 
without complete field testing. 


Sincerely, 

Gene Head 

Head Quarters 

2860 NW Skyline Drive 
Corvallis, OR 97330 


Hi-Res Vector Display Revisited 


Dear DDJ: 

Following my letter in the September 
1982 issue (DDJ No. 71), I have received 
many letters concerning the color graphics 
display I described therein. I cannot spare 
the time to give individual replies but do 
intend to write up the system for pub- 
lication when it is finally perfected. There 
is still a lot of work to do before it can be 
confidently offered to others to duplicate, 
mainly in cutting the enormous cost — e.g., 
the special CRT used costs over $1000 on 
a one-off basis. : 


Have other 68000 users any ideas on 
standardization of memory maps, disk 
formats, etc. to allow software inter- 
change? There seem to be no standards at 
all at the moment and I fear we will have 
a similar situation to that which now ap- 
plies to the 6502, with many machines 
having no interchangeability of software 
whatever. My own choice, for what it’s 
worth, is to place ROM between 000000 
and OOFFFF, I/O ports from 010000 to 
O1FFFF and RAM in the rest of the ad- 
dress space. I use the IEEE-696 S-100 
bus, which is very suitable for this system 
and gives good hardware interchangeabili- 
ty —I have processor boards with other 
CPUs which I can use when I need to. 


Finally, does anyone have any infor- 
mation concerning a Wangco 8201 flop- 
py disk controller board and an MFE 
model 250B digital cassette deck? Wangco 
no longer make the former and cannot 
supply any information and I’ve no idea 
who MFE are at all. Any info would be 
very welcome. 


Sincerely, 

Greg Trice 7 

1131 Sandhurst Circle, #111 
Scarborough, Ontario 

Canada MIVIVS 


Ruzinsky Re-Corrected 


Dear Readers, 

Steven Ruzinsky wrote in to tell us 
that a production error had caused 
an incorrect correction to his equations 
on page 10, column 3 of the March issue. 
Lest any be confused by the resulting 
“non-equation,” the text should have 
read: 


Let U= Angle 
S1 = .9999999999999999 
V1= S1*[FABS(FABS[FPREM 
(U,2 *PI)] - PI) - PI/2] 
COS(U) = Y(V)/FSQRT( X(V)*X(V) 
+Y(V)* Y(V)) 


Our apologies to Mr. Ruzinsky and any- 
one who was inconvenienced. 


The Editor 


DB, 





8 Circle no. 78 on reader service card. 


Dr. Dobb’s Journal, Number 78, April 1983 


CP/M EXCHANGE 


by Gene Head 








Bob Blum will take over this column 
beginning next month. Bob has brought 
considerable technical expertise with this 
two-part series on the CP/M disk and plans 
to begin a series on CP/M+ next month. 

Take the time to read and re-read this 
month’s column. It’s all meat and no fat 
but you may need a pencil and paper to do 
some quick calculations. It was a real eye- 
opener for me. Bob knows his stuff! 


Last month we reviewed how CP/M 
allocates and maintains disk space. Our 
discussion this month will continue by 
exploring first the file control block (FCB) 
and then the various BIOS tables used to 
describe the disk system and their inter- 
action with CP/M. 

When accessing a disk file through 
BDOS, a properly initialized FCB must be 
used. The open routines use the file name 
and type fields as the search argument for 
the desired file. Upon a successful match, 
the allocation information from the 
stored extent is copied into the FCB for 


future file operations. During input/out- 
put (I/O), various fields of the FCB are 
used to maintain an updated copy of the 
file’s status. 

When writing to a file, if the FCB’s 
addressing range is exceeded or the file is 
closed, the current FCB is written to the 
disk directory after the last four bytes are 
discarded. This truncation maintains com- 
patibility with earlier releases of CP/M 
and also eliminates unneeded information. 
It should be noted that the names, FCB 
and extent, can be used interchangeably, 
although FCB typically refers to the 
memory resident file control block, while 
extents are disk resident. 

Referring to Figure 1, the first byte 
of the FCB, DR, has a dual purpose de- 
pending on whether the FCB is memory 
or disk resident. When the FCB is in 
memory, the DR entry (when non-zero) 
designates which disk drive is to be auto- 
selected. After the FCB is written to disk, 
the DR entry reflects the file user number. 
The next 11 bytes contain eight bytes for 


FILE CONTROL BLOCK 


OFFSET SYMBOL BYTES 
oO DR 1 
a) 


1 


DESCRIPTIONS 


Drive number: 
Default drive 
Auta select drive 4 


i6 = Aute select drive F 


File name in upper case ASCII. 


Padded 


on right with blanks if necessary. 


File type in upper case ASCII. 


High 


order bits contain additional 
infarmation. 


BYTE. 9 = 
BYTE 


10 = 


i Read only file 
1 System file. File will 


nat be listed during a directory 


list. 


Number of current extent in use. 


Workarea. 


When extent number, 


exceeds 32 


EX» 


this byte acts as an overflow area. 


Record count. 


Number of 128 byte 


records contained in this extent. 


Allacation map. 


Allocatian group 


number storage area. 


Current record. 


Number af record 


currently be accessed. 


Random record. 


Record number ta be 


used for accessing the file 
randomly. 


Figure 1. 





the file name and three bytes for the file 
type. The high-order bits of the first two 
bytes of the file type are used to indicate 
if the file is read-only or a system file. 
Only two of the next three bytes are im- 
portant to this discussion. The first byte, 
EX, contains the current extent number 
in the range of 0 to 31. If the file expands 
beyond 32 extents, the EX byte is zeroed 
and the third byte, EC, is incremented. 
These two bytes can be visualized as con- 
taining a nine-bit number with the EX 
byte containing the low-order five bits 
and the high-order four bits present in 
the EC byte. To verify the maximum file 
size of 8,388,608, multiply each extent 
of 16,384 bytes by 512 extents. 


Another way to view the association 
between these two fields is that the EX 
byte contains the extent number within a 
group contained in the EC byte. Continu- 
ing along to the remaining fields, as each 
128-byte sector is written, the record 
count byte, RC, is incremented by one 
until 128 is reached. When this occurs, 
the FCB is written into the directory and 
a new FCB is automatically prepared for 
additional file operations. We can now 
verify that each extent can address 16,384 
bytes by multiplying 128 sectors by 128 
bytes per sector. The allocation map area 
of the FCB, AM, provides room for 16 
bytes of data allocation group numbers. 
Each allocation group number can be 
either one or two bytes in length depend- 
ing on how many allocation groups are 
contained on the disk. Further attention 
will be given to this later in the discussion 
on disk parameter blocks. The remaining 
four bytes of the FCB are used for sequen- 
tial and random access into a file and are 
left for independent study. 


As delivered by Digital Research, 
CP/M is configured for the MDS-800, 
which is not in common use. For that 
reason we will assume that CP/M is un- 
configured as distributed. Before studying 
how to configure CP/M for a particular 
disk system it may be helpful to examine 
an overview of all the integral parts of the 
BIOS. Figure 4 (page 12) shows us that 
the CBIOS begins with a series of sixteen 
jumps followed by one disk parameter 
header (DPH) for each disk drive attached 
to the system. The DPH contains address 
pointers to various other tables that com- 
pletely describe the disk formats that can 
be used on this particular system. 


From Figure 2 (page 10), the first field 
in the DPH, XLT, is a two-byte pointer to 
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the physical sector translation table. 
Through this table it’s possible to translate 
a logical sector to its physical equivalent. 
Many of today’s systems allow different 
disk formats to be used interchangeably 
on the same drive. For this reason, when 
logging in a disk, the BIOS will probably 
access a known part of the disk to deter- 
mine the format and place the address of 
the corresponding disk parameter block 
into DPB and the appropriate translation 
table address into XLT. 


The next two bytes are used for a 
workarea by BDOS followed by a two- 
byte pointer, DIRBUF, to an area of 
memory 128 bytes long which is used for 
directory operations. All DPHs can point 
to the same DIRBUF because only one 
directory operation will be active at a 
time. For example, when a file is opened, 
the directory is read into the buffer 
pointed to by DIRBUF one sector at a 
time. If the desired file is found, an index 
number is returned to the requester so 
that additional information can be ex- 
tracted. CSV points to a workarea used 
for calculation of the directory checksum. 
This checksum is used to detect when a 
disk has been changed without a warm 
start. Each disk drive must have its own 
CSV workarea. The DPH ends with a two- 
byte pointer, ALV, to a savearea which 
will contain the allocation map after a 
disk is logged in. A separate ALV savearea 
must be reserved for each disk drive on 
the system. | 

The disk parameter block (see Figure 
3) contains all the information necessary 
to describe the disk format in use. The 
first entry, SPT, contains the total number 
of logical sectors per track. This number 
may not equal the number of physical sec- 


CROSS DEVELOPMENT TOOLS 
FOR CPM 


PROGRAMMER WORK BENCH TOOL KITS 
for use on Z80 based system with CPM 2.2 
or equivalent operating system are now 
available from: HSC INC. 


Each tool kit include: 
CROSS ASSEMBLER, OBJECT FILE LIBRARIAN 
LOCATE UTILITY, SOURCE FILE LIBRARIAN 
LINK UTILITY, CROSS REFERENCE UTILITY 


Tool kits supporting the following micro— 
processors are available 
ZILOG Z80 Z8001 Z8002 
INTEL 8080 8085 8086 8088 
MOTOROLA MC 68000 


Each tool kit costs $350.00 Send today for 
FREE cataieg listing these and other 
u 


software products available from: 


HSC INC. 
BOX 86 
HERKIMER, NEW YORK 


(315) 866- 2311 


13350 


CPM is a trademark of DIGITAL RESEARCH INC 
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tors actually written on each track. For ex- 
ample, TARBELL double-density format 
uses sixteen 512-byte sectors per track. 
Since there are four 128-byte sectors per 
physical sector, SPT would contain 64. 
Before discussing the next three 
fields, a few decisions must be made. 
First, decide how large the data allocation 
block should be. On systems where the 
total capacity of any one disk is less than 
225K, block sizes from 1K to 16K can be 
used. On larger capacity formats you are 
limited to selecting block sizes 2K and 
larger. Tradeoffs between block sizes are 


subtle. If you consistently create small 
files, a smaller block size will probably 
be best suited to your needs. Larger block 
sizes have the advantage of keeping more 
sequential data available without exces- 
sive head movement. 

Next determine how many data 
blocks can be allocated. This is a function 
of the total capacity of the disk format 
being used minus the number of reserved 
system tracks divided by the data block 
size. This value is placed in DSM. 

With these decisions made, the tables 
in Figure 5 (page 12) are used to provide 


DISK FARAMETER HEADER 


SYMBOL 


KET 


DESCRIFTION’S 


Address of the logical to physical 


sector translation table. 


BDOS workarea. 


DIRBUF 


Address of a one sector workarea 


used for directory operations. 


Address of the disk parameter block 
for this drive. 


Address of a workarea used to 
calculate the directory checksum toa 
detect changed disks. 


Address of a savearea used for this 
drives allocation map. 


Figure 2. 


DISK PARAMETER BLOCK 


OFFSET SYMBOL BYTES 


Oo SPT 2 


DESCRIFTION*S 


Total number of 128 byte sectors 


per track. 


BSH 


Data allocation block shift 


factor as determined by the data 
block allocation size. 


Data allocation block mask. 


Extent mask determined by the 
number of data blocks allocated 
and the data allocation block 
size. 


Total number of data blacks 
allocated to this drive. 


Total number af directory 
entries allocated for this drive 
minus i. 


Table of 14 bits set on from 


left to right 


indicating 


allocation groups reserved for 
directory usage. 


Size of the directory check 
vectoar. 


Track offset to logical 


track 


ooh 4 EE 


Figure 3. 
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“Introducing the new Eco-C Compiler’ 


You already know C has what you need in a language; 
structured code that rivals assembler in size and speed, 
a rich set of operators and the flexibility that you 
demand. And C’s portability means that your software 
won't become obsolete. No more learning a new instruc- 
tion set each time a new processor pops up. 


Only problem was that a full-featured C compiler either 
cost a fortune or it lacked the data types you need, like 
floating point numbers. Meet the answer to your problem, 
our new Eco-C™ compiler. 


Eco-C is a full C compiler with a complete set of 
operators and data types including longs, floats and 
doubles. You don't have to settle for less. 


We also know your time is valuable, and you've got 
better things to do than wait for a compile-link to end. So, 
we designed the compiler from the ground up. It’s based 
on a true LL(1) grammar; no brute force parsing. A 
typical compile-and-link takes only a minute or two. 
Error messages are meaningful and right on the money. 


And when your masterpiece is done, it’s fast, efficient 
and yours. There are no royalty fees on software 
produced with the Eco-C compiler. 


Everything that you need is included. We’ve teamed 
Eco-C with Microsoft's MACRO 80™ to give you a 
reliable assembler and linker; a $200.00 value by itself! 
Since the compiler generates assembler Output, you 
can even modify the compiled code if you wish. Youcan 
then assemble it (M80) to produce REL files for the linker 
(L80). Of course there’s a run-time library, and helpful 
user's manual, too. 


Eco-C is designed for the Z80™ CPU using either CP/M 
or MP/M. (Other versions coming soon.) The price is 
$350.00 and the user’s manuals are $40.00. For more 
information, call or write: 





ECOSOFT#@ INC. 


P.O. Box 68602 
Indianapolis, IN 46268 
(317) 255-6476 


— 





Eco-C is a trademark of Ecosoft Inc. Z80 is a trademark of Zilog and CP/M and MP/M are trademarks of Digital Research. 
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values for BSH, BLM, and EXM. The 
extent mask value further redefines how 
much storage can actually be addressed 
by each FCB. For example, disks with 
less than 255 data allocation groups only 
require one byte for each group pointer. 
If the allocation groups are 2K in size 
then only eight bytes are used for each 
16K addressed leaving eight bytes of allo- 
cation map unused in the FCB. By coding 
EXM with 1, two logical extents can be 
stored in each physical FCB extending its 
addressing range to 32K. 


The situation becomes more confused 
when there are more than 255 allocation 
groups. In this case each pointer requires 
two bytes. In any case the tables in Figure 
5 will provide the proper entries to be 
used. The total number of directory en- 
tries, DRM, is also a function of the data 
block size. Each directory entry is 32 
bytes long. If the data block size is 1K 
then 32 directory entries will be contained 
in each block. 


Typically two data blocks are reserved 
for directory use. DRM would then be 
coded with 63. The decision on how 
many data blocks to reserve for the direc- 
tory is reflected in entries ALO and ALI. 











A NEW BOOK 
DEALING WITH 


ASSEMBLY 
LANGUAGE 


FOR CP/M* 


SYSTEM USERS 


CP/M is a registered trademark 
of Digital Research, Inc. 


Introduction to CP/M Assembly 




















tion manual on how to construct 
simple programs operating in CP/M that work! 


section on program troubleshooting. 
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Language is a step-by-step instruc- ae 


The full size (81x11) perfect-bound 180 pages present the 

reader with various ways of inputting and outputting data to a terminal, 
as well as sending data to a line printer. Since the |/O methods used 
are based on CP/M function constructions, the programs are meant 
to be interchangeable with “standard” CP/M systems. The reader can 
immediately “talk” with his computer in assembly language. Only 
minimal prior exposure to assembly language is required. Two 
useful programs are constructed to demonstrate CP/M techniques: 
Single-drive copy program (sequential filing); Data base program 
(random access filing). Also included is a simple game program 
demonstrating some basic game programming techniques and a short 


TO ORDER SEND: $15.95 PLUS $1.25 FOR POSTAGE AND HAND- 
LING (EUROPE—ADD $7.00 FOR POSTAGE) (CALIFORNIA RES. 
ADD 6% SALES TAX) TO: 


EXECUTIVE COMPUTER 


DEPT. F, P.O. BOX 222178, CARMEL, CA 93922, (408) 375-DATA 


Given that two data blocks are reserved 
for directory use, the two high-order bits 
of the 16-bit quantity formed by com- 
bining ALO and ALI would be set on. 
This value is used when a new disk is 
logged in to mask the allocation vector 
table to prevent any damage to the direc- 
tory data blocks. The next entry, CKS, 
should contain the total number of direc- 
tory entries in use. Each time a disk is 
selected after it has been logged in, the 
directory is checked against the stored 
checksum to determine if the disk has 
been changed without a warm start. If a 
hard disk is in use it is not necessary to 
provide for directory checking. 

By using the information contained 
in the disk parameter block, you can 
move about the disk system at will. To 
calculate the starting track and sector 
numbers from a known allocation group 
number requires only a few steps. First 
multiply the group number by BLM plus 
one. This can easily be done by shifting 
the group number left the number of 
times contained in BSH. This results in 
supplying the actual sector number as if 
all the sectors were sequentially num- 
bered. Now divide the result by SPT and 
add OFF to the quotient. The remainder 


x 
ALT 


XXXXXXXKXXX 


is the starting sector number while the 
quotient is the starting track number. 


To calculate a group number with 
known track and sector numbers does not 
require any more effort. Subtract OFF 
from track then multiply the track num- 
ber by SPT and add the sector number to 
the quotient. Now divide the quotient by 
BLM plus one. 


In a very short time we have covered 
the same material that has been presented 
in a number of books. I suggest that you 
use the information presented here while 
reviewing a BIOS listing. Next month the 
features of CP/M Plus will be compared 
to those provided by CP/M 2.x. 


DB, 


Reader Ballot 
Vote for your favorite feature/article. 
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BiOS CONSTRUCTION 
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Figure 4. 


DETERMINING BSH — BLM UNITS 
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Figure 5. 
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You've spent thousands 
on your system. 


Will you invest two dollars 
> Bigiangae of if F OF COURSE YOU PE: 


Book Guide is a 64-page annotated 
mail order catalog of the best microcom- 
puter books published to date. It critically 
reviews 819 books chosen to help you 
make the most of your microcomputer. 


Computers: A Comprehensive Book Guide 
is organized into 26 topics including: 




























e Business Applications 

© Word Processing 

e Assembly language & microprocessors 
@ Machine specific hardware & software 
e Programming languages 


TRY our fast, efficient, personal mail 
order service. The Yes! Bookshop, estab- 
lished 1970, stocks all the books reviewed. 
We also welcome special orders. 


AND as a Yes! Bookshop customer, you 
will receive free updates, reviewing the 
latest microcomputer books as they are 


published. 
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1035-AlI1 31st Street N.W. 
Washington, D.C. 20007 
Mail Orders: (202) 338-2727 
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Editor’s note: The author informed us 
that he wrote this utility in self-defense, 
after an errant program had destroyed his 
directory of a megabyte of important 
files. It took him about fifty man-hours, 
including the writing of the program, to 
completely recover all those files. The 
source code for this utility is written for 
use with Ron Cain’s version 1 of the 
Small-C compiler. It has not yet been 
tried with J. E. Hendrix’s upgrade, Small- 
C version 2 (see DDJ Nos. 74 and 75), 
but it should be upwardly compatible. 
This utility is available from the 
author on 8-inch, SSSD, CP/M-format 
diskettes for $30, which include the 
source code, additional documentation 
on use and configuration, and an execut- 
able version (for CP/M 2.2). For other 
formats, send inquiries to the author. 


any people who make frequent use 

of microcomputers have had the 

disheartening experience of loss of 
data in a disk system. This can be due to 
operator error, program error, or hard- 
ware malfunction. Experienced people 
usually will not offer any sympathy to 
those who lose important data because it 
should have been backed up on some re- 
movable media. Despite this common- 
sense rule, people still fall prey to various 
time and productivity pressures and occa- 
sionally lose data without having made a 
backup. In some cases the data lost can 
be extensive and valuable and warrant an 
effort in recovery. This is why disk patch- 
ing programs exist; many can be found 
in the commercial marketplace and the 
public domain. Mostly they are useful if 
files have been inadvertently erased, or a 
sector develops an error and becomes un- 
readable due to a variety of possible 
reasons. Erased files can be reclaimed if 
the disk is not subsequently written to 
because erasing merely puts a flag in the 
directory entry for that file which says 
the file is erased — the data is not literally 
erased. Therefore that flag can be changed 
and the file “‘un-erased.” 


_by Walter V. Murphy 


Walter V. Murphy, Compucations, 212 
Northwood Avenue, So. San Francisco, 
CA 94080. 


Copyright © 1983 by Walter V. Murphy. 
RECLAIM is intended for non-commercial 
use only. Any commercial use, without 


the author’s written permission, is pro- 
hibited. 


The problem is on a more serious 
level, however, if the directory is more 
extensively damaged. In a CP/M-based 
system, storage space on a disk is allocated 
in blocks. A block is always a multiple of 
a sector, typically 8, 16, or 32 correspond- 
ing to 1K, 2K, or 4K byte units of alloca- 
tion where a sector contains 128 bytes. 
These blocks are given sequential reference 
numbers and these numbers are placed in 
a list in the directory and associated with 
a given file name. The blocks assigned to 
a file need not be contiguous and it is 
permitted for them to be scattered in any 
order on the disk. These block numbers 
are the single most important piece of 
information the operating system deals 
with in maintaining a file. Clearly if the 
list of block numbers is destroyed for an 
individual file, the problem of reclama- 
tion is worsened, but if the directory for an 
entire disk is totally destroyed, the magni- 
tude of the problem can be overwhelming, 
particularly if the disk was large and 
almost full. 

The program presented here deals 
with this kind of problem. The reclama- 
tion process cannot be fully automated; a 
qualified person familiar with the types 
of data on the disk must still inspect the 
individual blocks and determine which to 
save and the order in which to group 
them. This inspection process requires 
one of the sector examination programs. 
One which [| have used is DISKDOC, 
written in C and published in DDJ No. 66. 
It would make a nice companion to RE- 
CLAIM. The next step is to retrieve these 
multiple-sector blocks from the disk and 
write them into a file on another disk. 
RECLAIM is almost indispensible at this 
step in all but the most trivial cases. 


How RECLAIM Works 


RECLAIM is written in Small-C v.1 
and intended for use on CP/M-compatible 
operating systems. It is run while logged 
into the disk which is to be reconstructed 
and it writes out files containing a single 
block each onto a different disk. RE- 
CLAIM, as it is presented here, can only 
be run on systems compatible with CP/M 
2.0 or better. This is because RECLAIM 
gets specific file system information from 
the disk parameter block. However, it 
could be modified to get the file system 
information directly from a CP/M 1.4 
system. RECLAIM makes direct BIOS 
calls in order to fill a block-sized buffer 
with all the sectors of the requested block 
and then uses the file system write com- 


mand to create the file. When RECLAIM 
is run, it expects input from STDIN, the 
standard input device, which can be a file 
using Small-C’s directed console input. 
This input is one text line for each block 
to be extracted from the disk. Each line 
contains the track number, the starting 
sector number of the block, and the file- 
name including drive specifier in which to 
write the block. Whenever a large quanti- 
ty of blocks is to be reclaimed, the list of 
blocks should be put into a text file and 
presented to RECLAIM through console 
redirection. The RECLAIM program and 
the block list file should never be written 
to the disk which is to be reclaimed; 
instead they should be accessed from 
another disk by using drive specifiers. 
The following example should be very 
clarifying. 


The block list file “INPUTFIL” is a 
text file on A: containing: 


2,17,a:file.01 
2;33.a:;THe:02 
2,49,a: file.03 
5 ,33,a:file.04 
23,47,a:file.05 
54,1,a:file.06 


The damaged disk is in drive B:. 
RECLAIM is on drive A:. Drive B: should 
be logged in as shown in Figure 1 (page 
16). If at any point in the process an error 
occurs, the program trys to give appro- 
priate error messages and then stops. 

The overall recovery process can be 
summarized as follows: 


(1) Use a disk sector examination 
program such as DISKDOC to inspect 
individual sectors for data characteristics. 
For example, it should be very easy to 


differentiate .COM files and text files by 


inspection as most disk sector examina- 
tion programs also show the ASCII test 
equivalent of the bytes whenever possible. 


(2) Decide which blocks will be kept 
and which are unimportant. Make a list of 
blocks by track and starting sector num- 
ber. It is not necessary to include every 
sector you wish to save, only the starting 
sector of every block. The entire block 
will be automatically retrieved by RE- 
CLAIM. The block structure starts on 
your disk at the next sector immediately 
after the directory. In a typical double- 
density system with 64 directory entries, 
the first block is on track 2, sector 17 and 
blocks are 16 sectors long. At this time 
make any notes you can identifying the 
contents of the block so it will be easier 
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ey 
CROSS ASSEMBLER 
FOR CP/M-80 $ 260 








MOTOROLA SYNTAX MACROS 








LINKAGE EDITOR CONDITIONALS 












STRUCTURED WRITTEN IN C 










Quelo (206)784-8018 


843 NW 54th mornings 
Seattle, Wa. 98107 Dick Curtiss 








CP/M is a trademark of Digital Research 


Circle no. 38 on reader service card. 


MicroScript 


Are you wasting valuable time trying to format 
complex documents with a word processor or ob- 
solete text formatter? 


MicroScript™ is a state of the art text formatter 
specifically designed for the production of technical 
manuals, specifications, and other complex documents. 
This powerful tool pays for itself the first time you use it. 
Featuring: 


e generalized markup 
e left alignment 

e center alignment 

e right alignment 

e justification 


e floating text blocks 
e footnotes 

e variable line spacing 
e widow supression 

e section numbering 

e imbedded documents 
e automatic lists 

e macro processing 

e symbol processing 
e table of contents 

e direct printer control 
e initialization profile 
e page numbering 


e left indention 
e right indention 
e bold text 
¢ underscored text 
e proportional spacing 
e fully definable page 
e multiple columns 
e headers and footers 
$99 postpaid within U.S., outside U.S. add $10. CA residents add 6%. Specify 
CP/M-80*, CP/M-86*, MS-DOS*, or PC-DOS*; printer type; disk format. 
Software Technique™ 
6531 Crown Blvd., Suite 3A 
San Jose, CA 95120 
(408) 997-5026 


CP/M-80, CP/M-86 trademarks of Digital Research, MS-DOS trademark of Microsoft, PC-DOS 
trademark of IBM Corporation. 





Circle no. 31 on reader service card. 








edward k. ream 





P ie oe WN LS 


RED 


A TEXT DITOR IN C 











e available for small-C and BDS C 
(specify when ordering) 


e complete SOURCE CODE provided 
e handles huge files 
e block move and copy commands 


e works with any video terminal with 
cursor addressing 


e supplied on single density, IBM 
format, 8 inch disks for CP/M 
systems with at least 48K memory 


e portable to other machines 
and operating systems 


Price: $50. 


to order, or for more information, 
contact: 


Edward K. Ream 
1850 Summit Ave. 
Madison, WI 53705 
(608)231-2952 


Circle no. 35 on reader service card. 





later to combine the blocks in a way that 
makes sense. 


(3) Using a text editor, create a file 
which contains the list of blocks you wish 
to reclaim. 


(4) Run the RECLAIM program 
- while directing the input text file into it. 


(S) Examine any of the files created 
which are text and concatenate them 


B> 

B> a:reclaim <a: inputfil 
COMPUCATIONS Disk block RECLAIMation utility, 12 Aug82. 
This disk has 54 sectors per track and 16 sectors per block. 


appropriately while giving them meaning- 
ful names. If some files are purely data 
then you will need information on the 
structure of that data in order to piece it 
back together. In certain databases it is 
not unusual to find a field which repre- 
sents the date, a stock number, or line 
item number. Usually there is either a 
fixed record length for the database or a 
consistent identifying pattern at the end 
of each record such as a carriage-return 


Track: 2, Starting Sector: 17, Filename: a: file.01 


Track: 
Track: 
Track: 


2, Starting Sector: 33, Filename: a: file.02 
2, Starting Sector: 49, Filename: a: file.03 
5, Starting Sector: 33, Filename: a: file.04 


line-feed pair. Knowing this and using a 
debugger such as DDT, you can decide 
which blocks are associated with each 
other. Later, blocks can be concatenated 
— using your text editor if they are text, 
or using PIP if they are any other kind of 
data. Text data can be verified by print- 
ing it out and looking at its appearance. 
Source code to programs can be verified 
by assembling or compiling them and 
database files can be verified by using 
them in a test application. 

I think it is good advice to not at- 
tempt to erase or in any way modify the 
disk being reconstructed until you have 
not only retrieved all the blocks of inter- 
est but are also confident that the order 
in which you have restored them is cor- 
rect. Good luck if you attempt a large 
recovery procedure of this sort. Although 
it is tedious and time consuming, you 
have nothing to lose. The best advice is, 
as always, keep backups of all important 


data and avoid ever having to reconstruct 
Track: 23, Starting Sector: 47, Filename: a: file.05 ie 
Track: 54, Starting Sector: 1, Filename: a: file.06 


Successful completion. Goodbye from RECLAIM. BBY 


(Listing begins on page 18) 


Figure 1. 
RECLAIM Log On for Drive B: 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 233 




















COPY II PC is a complete replacement 
e for “DISKCOPY” on your PC-DOS 
diskette. It formats, copies, then verifies the 
duplicate disk (DISKCOPY does not verify). 
COPY II PC automatically uses all the 
memory in your PC, and adjusts for 
single/dual sided diskettes. A drive speed 
utility helps keep your drives in top condition. 


COPY II PC allows you to backup your 2? 
e protected software. And unlike other 
backup programs, COPY II PC makes exact 
copies without modifications to the software on 
the duplicate disk. This assures maximum 
reliability and compatibility with the widest 
range of protection schemes. COPY II PC 
handles sector timing, multiple sector sizes, and 
bad sector ID’s as used for disk protection 
verification. 


For your convenience, COPY II PC is not copy-protected. 
Available at fine computer and software stores or direct from: 


PO. Box 19730-203 
Portland, OR 97219 
(503) 244-5782 


ENTRAL POINT s39"" 
Software, Inc. 


ATTENTION APPLE OWNERS: Call us about backing up your protected software with Copy II Plus! | 
EDR DD 
pee Sg Oe a a a ee eg eee, 


Circle no. 93 on reader service card. 
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SOFTWARE DESCRIPTIONS 


TPM (TPM lI) - $80 A Z80 only operating system which is 
capable of running CP/M programs. Includes many features not 
found in CP/M such as independent disk directory partitioning for 
up to 255 user partitions, space, time and version commands, date 
and time, create FCB, chain program, direct disk 1/0, abbreviated 
commands and more! Available for North Star (either single or 
aes density), TRS—80 Model | (offset 4200H) or Il, Versafloppy 
|, or Tarbell |. 


TPM-II - $125 An expanded version of TPM whichis fully CP/M 
2.2 compatible but still retains the extra features our customers 
have come to depend on. This version is super FAST. Extended 
density capability allows over 600K per side onan 8’ disk. Availa- 
ble preconfigured for Versafloppy !I (8" or 5"), Epson Qx-10, 
Osborne II or TRS-80 Model II. 


CONFIGURATOR | 
This package provides all the necessary programs for 
Customizing TPM for a floppy controller which we do 
not support. We suggest ordering this on single den- 
sity (8SD). 

Includes: TPM-II ($125). Sample PIOS (BIOS) SOURCE 
(SFREE), MACRO II ($100). LINKER ($80), DEBUG | ($80). 
QED ($150), ZEDIT ($50). TOP | ($80). BASIC | ($50) and 


BASIC II ($100) NOW $250 


$815 Value 


CONFIGURATOR II 
Includes: TPM-II ($125), Sample PIOS (BIOS) SOURCE 
(SFREE), MACRO II ($100). MACRO III ($150). LINKER 
($80), DEBUG | ($80), DEBUG I! ($100). QSAL ($200). QED 
($150), ZTEL ($80), TOP II ($100). BUSINESS BASIC 
($200) and MODEM SOURCE ($40) and DISASSEMBLER 
($80) 
$1485 Value NOW $400 
MODEL | PROGRAMMER 
This package is only for the TRS-80 Model |. Note: 
These are the ONLY CDL programs available for the 
Model |. It includes: TPM | ($80), BUSINESS BASIC 
($200), MACRO | ($80), DEBUG | ($80). ZDDT ($40). ZTEL 
($80), TOP | ($80) and MODEM (S40) 

$680 Value NOW $175 


MODEL |i PROGRAMMER 
This package is only for the TRS-80 Model Il. 
It includes: TPM-II ($125). BUSINESS BASIC ($200). 
MACRO II ($100), MACRO Ill ($150). LINKER ($80), 
DEBUG | ($80), DEBUG II ($100), QED ($150), ZTEL ($80), 
TOP II ($100), ZDDT ($40), ZAPPLE SOURCE ($80). 
MODEM ($40). MODEM SOURCE ($40) and DISAS- 


SEMBLER ($80) NOW $375 


$1445 Value 
BASIC I - $50. a 12K+ basic interpreter with 7 digit precision. 
BASIC II - $100. A 12 digit precision version of Basic |. 
BUSINESS BASIC - $200, A full disk extended basic with 


random or sequential disk file handling and 12 digit precision 
(even for TRIG functions). Also includes PRIVACY command to 
protect source code, fixed and variable record lengths. simultane- 
ous access to multiple disk files. global editing, and more! 


ACCOUNTING PACKAGE -‘ $300, Written in Business 
Basic. Includes General Ledger. Accounts Receivable/Payable. 
and Payroll. Set up for Hazeltine 1500 terminal. Minor modifica- 
tions needed for other terminals. Provided in unprotected source 
form. 


MACRO | - $80. A 280/8080 assembler which uses CDL/TDL 
mnemonics. Handles MACROs and generates relocateable code. 
Includes 14 conditionals. 16 listing controls. 54 pseudo-ops. 11 
arithmetic/logical ops, local and global symbols. linkable module 
generation. and more! 


MACRO II - $100. An improved version of Macro | with 
expanded linking capabilities and more listing options. Also inter- 
nal code has been greatly improved for faster more reliable 
operation. 


MACRO III -$150. An enchanced version of Macro Il. Internal 
buffers have been increased to achieve a significant improvement 
in speed of assembly. Additional features include line numbers 
cross reference. compressed PRN files. form feeds. page parity. 
additional pseudo-ops. internal setting of time and date. and 
expanded assembly-time data entry 



















































Z80 © 


Software 


DEVELOPER | 
Includes: MACRO | ($80), DEBUG | ($80). ZEDIT ($50). 
TOP | ($80). BASIC | ($50) and BASIC II NOW 

$440 Value NOW $15 150 


DEVELOPER II 
Includes: MACRO II ($100), MACRO II! ($150), LINKER 
($80), DEBUG | ($80), DEBUG !! ($100), BUSINESS BASIC 
($200), QED ($150), TOP I! ($100), ZDDT ($40), ZAPPLE 
SOURCE ($80), MODEM SOURCE ($40), ZTEL ($80), and 


DISASSEMBLER ($80). 
$1280 Value NOW $350 


DEVELOPER III 
Includes: QSAL ($200), QED ($150). BUSINESS BASIC 


($200). ZTEL ($80) and TOP II ($100) 
$730 Value NOW $300 


COMBO 
Includes: DEVELOPER I! ($1280). ACCOUNTING PACK- 
AGE ($300). QSAL ($200) and 6502X No 





































$1930 Value W $500 


LINKER - S80. A linking loader for handling the linkable 
modules created by the above assemblers. 


DEBUG | - $80. A tool for debugging 280 or 8080 code 
Disassembles to CDL/TDL mnemonics compatible with above 
assemblers. Traces code even through ROM. Commands include 
Calculate. Display. Examine. Fill. Goto, List. Mode. Open File. Put. 
Set Wait. Trace. and Search. 


DEBUG II - $100. A superset of Debug |. Adds Instruction 
Interpreter. Radix change. Set Trap/Conditional display. Trace 
options. and Zap FCB 


6502X - $150. A 6502 cross assembler. Runs on the Z80 but 
assembles 6502 instructions into 6502 object code! Similar features 
as our Macro assemblers. 


QSAL - $200. A SUPER FAST Z80 assembler. Up to 10 times 
faster than conventional assemblers. Directly generates code into 
memory in one pass but also to offset for execution in its own 
memory space. Pascal like structures: repeat...until. if...then...else. 
while...do. begin...end. case...of. Multiple statements per line. 
special register handling expressions. long symbol names, auto 
and modular assembly. and more! This one uses ZILOG Mnemonics. 


QED - $150. A screen editor which is both FAST and easy to 
learn. Commands include block delete. copy. and move to a 
named file or within text. repeat previous command. change. 
locate. find at start of line. and numerous cursor and window 
movement functions. Works with any CRT having clear screen, 
addressable cursor, clear to end of line, clear to end of screen, and 
80X24. 


DISK FORMATS 


When ordering software specify which disk format you would like. 


CODE DESCRIPTION 


8SD 8” IBM 3740 Single Density (128 bytes/26 sectors/77 tracks) 
8DD 8” Double Density (256 bytes/26 sectors/77 tracks) 
8XD 8" CDL Extended Density (1024 bytes/8 sectur/77 traceks - 616K) 


5SD 5.25" Single Density (TRS80 Model |, Versafloppy |. Tarbell 1) 


5EP 5.25" Epson Double Density 

5PC 5.25" IBM PC Double Density 

5XE 5.25" Xerox 820 Single Density 

50S 5.25" Osborne Single Density 

5ZA 5.25" Z80 Apple (Softcard compatible) 





ZTEL - $80. An extensive text editing language and editor 
modelled after DEC’s TECO. 


ZEDIT -$50. A mini text editor. Character /line oriented. Works 
well with hardcopy terminals and is easy to use. Includes macro 
command capability. 


TOP | - $80. A Text Output Processor for formatting manuals, 
documents. etc. Interprets commands which are entered into the 
text by an editor. Commands include justify. page number, head- 
ing. subheading. centering. and more. 


TOP II - $100. A superset of TOP |. Adds: embedded control 
characters in the file. page at a time printing. selected portion 
printing. include/merge files. form feed/CRLF option for paging. 
instant start up. and final page ejection. 


ZDDT - $40. This is the disk version of our famous Zapple 
monitor. It will also load hex and relocatable files. 


ZAPPLE SOURCE - $80. This is the source to the SMB 
ROM version of our famous Zapple monitor. It can be used to 
create your own custom version or as an example of the features 
of our assemblers. Must be assembled using one of our assemblers. 


MODEM. Acommunication program for file transfer between 
systems or using a system as a terminal. Based on the user group 
version but modified to work with our SMB board or TRS-80 
Models | or Il. You must specify which version you want. 


MODEM SOURCE - $40. For making your own custom 


version. Requires one of our Macro Assemblers. 


DISASSEMBLER - $80. Does bulk disassembly of object 
files creating source files which can be assembled by one of our 


assemblers. 
HARDWARE 


S-100 — SMB |i Bare Board $50. “System Monitor Board” for 
S-100 systems. 2 serial ports, 2 parallel ports, cassette inter- 
face, 4K memory (ROM, 2708 EPROM. 2114 RAM), and power 
on jump. When used with Zapple ROM below, it makes putting 
a S-100 system together a snap. 

Zapple ROM $35, Properly initializes SMB |/Il hardware, pro- 
vides a powerful debug monitor. 

IBM PC — Big Blue 280 board $595, Add 280 capability to your 
IBM Personal Computer. Runs CP/M programs but does not 
require CP/M or TPM. Complete with Z80 CPU, 64K add on 
memory, serial port, parallel port, time and date clock with 
battery backup, hard disk interface, and software to attach to 
PC DOS and transfer programs. Mfr'd by QCS. 

50% Discount on all CDL software ordered at the same time as 
a Big Blue (and for the Big Blue). 

APPLE II — Chairman 280 $345, Add Z80 capability to your 
Apple Il/ll Plus computer. Runs CP/M programs with our 
more powerful TPM. Includes 64K memory add on (unlike the 
competition this is also useable by the 6502/DOS as well as 
the Z80), TPM, QSAL assembler, QED Screen Editor, and Busi- 
ness Basic. Mfr'd by AMT Research. 

Apple Special $175, Buy the Apple Z80 Developer at the same 
time as the “Chairman” and pay only $175 instead of $325. 


APPLE 280 DEVELOPER 
Includes: 6502X ($150), MACRO || ($100), MACRO III 
($150), QSAL ($200), QED ($150), LINKER ($80), DEBUG | 
($80), DEBUG II ($100), ZDDT ($40) and BUSINESS 


BASIC ($200) NOW $325 











VALUE: $1250 
$175 when purchased with AMT “Chairman” Board 


ORDERING INFORMATION: 
VISA/MasterCard/C.0.D. 
Call or Write With urneriag 


Information... 


OEMS: 


licensing to OEM's. Write to Carl 
Galletti with your requirements. 
Dealer Inquiries Invited. 


TPM INFO When ordering TPM | or Il. in addition to Disk Format. please specify one of the following codes: 


For Phone Orders ONLY Call Toll Free... 


CODE DESCRIPTION 





Many CDL products are djaravle for 


TPM |: NSSD/H = North Star Single Density for Horizon 1/0 
NSSD/Z North Star Singte Density for Zapple 1/0 
NSDD/H North Star Double Density for Horizon 1/0 
NS0D/Z North Star Double Density for Zapple !/0 
TRS80-| = TRS-80 Model | (4200H Offset) 
TRS80Il_ =TRS-80 Model |! 
vis Versafloppy | 8” 
VI5 Versafloppy 15.25" « 

TPM-ll: = VII8 Versafloppy Il 8" (XD) ° 
ViI5 Versafloppy 1 5.25" 
TRS80Il_ =TRS-80 Model I! (XD) 


1-(800) 458-3491 


Ask For Extension #15 


For information and Tech Queries call 


(609) 599-2146 


Prices and Specifications subject to change without notice. 
TPM. Z80. CP/M. TRS80 are trademarks of CDL. Zilog. DRI and Tandy respectively. 


Computer Design Labs ©". rer 


342 Columbus Avenue/Trenton, NJ 08629 


Circle no. 90 on reader service card. 


(Except Pa.) 




















REC LAI M (Text begins on page 14) 
/* RECLAIM.C 
A utility for crashed disk data reclaimatian. 


By Walter V. Murehyr (415) 2Se-4454 
LemPucatioaons Camputer Enasineerins 

ele Northwood Avenue 

seuth San Francisca, Ca. P4os8o 


RECLAIM is intended for nan-commercial use and 
distribution. 


This Pregram accepts text input lines from STOIN cantainina 
track, starting sector and filename information. The indicated 
disk blocks are read and assembled inte files on another disk 
using the specified names. Manr lines of input can be given ta 
the Presram br using input redirection. 


The format of the input is as Follows: 
Track,» Sector,Filename. ext 


Es ame? |e & 4H4,146,FROGRAM, ASM 
42.45; 0ATAFILE. AOI] 


Wher using directed input the command line looks like this: 
RECLAIM <INPUTFIL 


Where INFUTFIL is a text file containins the input lines. 
This allews generating a lana sequence of disk blacks tea 
be read using a text editer, 

+ / 


#define ERROR ag /*# These declarations would usually be *#/ 
#defFine TRUE i f*® in a File called STOIC.H %/ 
#odefine FALSE x 

#adeFine NULL 
#define HOME at 
#define Est a 
#define CR 1 
#define LF 1¢ 
#define SECLEN ij 


on 
le 
tour 


naar fa 


2 /* sectar lenath #7 


i 

The external declaration is here because the Small-C this proaram 
was intended for generates MEO assembly language source code, 

ey 

extern stdin.s»stdout3 


char #bufrs /# bleck buffer #/ 

imt track, fe bor Bites va tl. +7 
Sectors /*% for bias call #/ 
blksiz; /*® mumber of sectors in a black #/ 
SPt 5 /*® number of sectors Per track #/ 


(Continued on page 20) 
Sa 
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Master Programmer Pavel Breder Does it Again! NEW SUPER POWER! (version 3.3) 
M. Now for CP/M86 and MP/M 86, too. 


puts you in control of CP/ 





“POWER IS A GREAT PROGRAM’ - Infoworld Software Review Nov 8/82 


POWER! 


The first super program that 
puts you in control of CP/M. ® 





POWER! works with CP/M or MP/M 
on any computer. 


POWER! gives you complete con- 
trol over CP/M! 


Ever accidentally erased a file? 
POWER! restores erased files! 


Ever fiddled with PIP in copying 
files? POWER! replaces PIP and is 
faster and easier. You simply pick 
files to be copied from a numbered 
menu. POWER! feeds the names to 
CP/M for you - no need to type file 
names, no typing errors...ever! 


Tired of CP/M’s scrolling through 
text files? POWER! goes through 
files for you, page by page, file by 
file, or line by line with instant halt 
at your finger tips. 


Ever lost data on a glitched disk? 
POWER! tests disks and fixes 
glitched disks. 


Damaged Directory? 
POWER! allows you to repair the 
directory! 


Afraid of HEX numbers? 
POWER! automatically converts 
HEX to DECIMAL, BINARY & ASCII. 


Need to patch or change a program? 
POWER! searches memory, dis- 
plays memory, and lets you change 
memory wherever you want. 


Want to locate a file? 

POWER! sorts’ the _ directory, 
searches all disks or all user areas 
automatically for files for you. 


Annoyed at having to keep a 
system disk in Drive A:? POWER! 
doesn’t require a system disk in 
any drive. 


Renamed a file using = and all that 
typing? POWER! lets you pick files 
from a numbered menu and 
prompts for every action. 


Ever accidentally overwritten a file? 
POWER! checks first and asks per- 
mission. 


MORE THAN 





ONLY $149 ($2.75 EA.UTILITY) 


(Price to go up soon) 


POWER! frees your disk 
space since it uses less 
than 15k. 


POWER! versions for CP/M 
or MP/M on any computer. 


TRY IT ON US! 
MONEY BACK GUARANTEE 


Need to manipulate data on a disk? 
POWER! reads and writes any track 
or sector independently. 


Ever make a mistake in the DDT? 
POWER! loads disk data to ANY 
memory address, not just 100, and 
writes to the disk from any memory 
address. POWER! Single-Steps 
through memory, moves memory, 
compares memory sectors, tests 
memory, allows you to change 
memory and saves to disk using 
Decimal numbers. 


NOW POWER! permits you to 
securely lock any file with your 
password to protect sensitive infor- 
mation from prying eyes. 
PASSWORD program included 
FREE with every POWER! order. 


Dislike BDOS errors? 
POWER! ends BDOS errors, and 
gives you a way out. 


Trouble identifying files? 

POWER! marks original files and 
their copies for you. POWER! also 
compares files and finds identical 
copies regardless of name. 


Can’t remember odd file or program 
name abbreviations? POWER! lets 
you deal with disk files by number. 
Never type or mistype file names 
again. 


POWER! does more..NEW version 
Of over 55 command utility pro- 
grams is the only CP/M housekeep- 
er you will ever need to really get 
control of your computer. A great 
buy, too, at less than $2.75 each. 


Previous purchasers of POWER! 
Exchange your original disk for 
updated version with the new 


commands and brand new 
manual. $35.00 
credit card, check or C.O.D. 





JOIN OTHER POWER USERS 


J 


 salataestntenteniententententantentententententententententententententententen 


COM PUTING! 2519 Greenwich, San Francisco, CA 94123 























| Computer 








i 
E. |. Dupont Xerox Corp AMF i 
oes ee rests or Life aera Univ : TOLLFREE: (800) 428-7825 Ext. 96C DEALERS and OEM’s i 
ock Exchange Princeton Univ ivetti : 7.1634 
Livermore Labs ITT New Mexico State : IN CA: (800) 428-7824 Ext. 96C (415) 567-163 
Union Carbide Dow Chemical Monsanto Chemical j CP/M $149 CP/M-86 $149 MP/M $198 California add 64% sales tax 
UC Berkeley Advanced Logic Sys. Univ Minnesota i ; 
UC San Francisco  Charlston Univ US Dynamics : pga eta I 
Bendix Corp Univ Helsinki CitiBank j Name a [ 
Ford Motor Co. Honeywell } Company ic ON gk ere 4 i 
| Address 3g I 
COM PUTING! 2519 Greenwich, San Francisco, CA 94123 4 city _ State Zip 
J 


igs: 
= SD 
1a 





Circle no. 87 on reader service card. 


REC LAI ivi (Listing continued, text begins on page 14) 


char filenameliood, /# holds the filename, s is the input line. #*/ 
sLioods /# These don’t need ta be so Tons but ther #7 
f/* are sust Fer Pratectian sake, #/ 
maim) 
{ har t2c5 f/*%# M 18S a workina ineut line Pointer. #7 
Haddrs /# addr ais used far givina the DMA te crP/m. #7 
Pres 4s /#®# 1 #18 For general use. #7 
Fis f*# fd ois a file descriptor number. #/ 
(eb des dd 2 4:0h)s /® get cpe/m version mumber #7 
if €170xKTOO) -€. si9an0nt) 5 
, Print#("\n This prearam will mot werk with MP/M.".1)3 exit (i); 
Pf. £43 208700). 4) Oe20)> Co sieancnt2$ 
Printfeo"\n This program will not work with less than CP/M 2.0," 
133 
@RLEALT I 22 
if ('svsparms()) €sianand): /# get file syrstem Parameters #/ 
Printfe"N\n Unknown system error. "s1)3 @xit€1l)3 3 
/*® if memory 18 available- allacate it #/ 
if (€(bufr= mallac (SECLEN#b ksiz))==NULL) € sismand)s 
Printfo'"\n Net ensugh memory for buffer. "21)3 e@xitdcids 




















| WILL BEAT ANY COMPETITOR'S PRICE 
PROVIDED IT IS NOT BELOW MY COST. 
TRY TO BEAT THESE IC PRICES: 





DYNAMIC RAM 


64K 200 ns $4.79 
64K 150 ns 4.99 
64K 120 ns 5.90 
16K 200 ns 1:25 
EPROM 
2764 250 ns $9.90 
2732 450 ns 4.15 
2716 450 ns a2 
2532 450 ns 4.70 
STATIC RAM 
6116P-3 150 ns $4.24 
2016 100 ns 4.00 
2114 200 ns 1.60 
Z80A FAMILY 
CPU, CTC, or PIO $3.39 
DART 8.25 


DMA or SIO/O 12.50 





MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts 


MICROPROCESSORS UNLIMITED 
24,000 South Peoria Ave. 
BEGGS, OK. 74421 
(918) 267-4961 


Prices subject to change. Call for volume prices. Subiect to available quantities. 
Shipping & Insurance extra. Cash discount prices shown. 


Prices 3/1/83 


Circle no. 53 on reader service card. 
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A Professional Quality Z80/8080 Disassembler 


REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k long! 
Lets you insert COMMENTS in the disassembly! 


A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and I/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M* 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%2% sales tax 


REVASCO 
6032 Chariton Ave., Los Angeles, CA. 90056 
(213) 649-3575 


“CP/M is a Trademark of Digital Resaerch, Inc. 





Circle no. 34 on reader service card. 


ey 


cirscreenmd) 3 
S.anan( 33 


Prantrt' wn This disk has Ad sectars per. track: “;apts 23% 
Printrl and’ 2d sectors per block. Vi" sh?Peseies 23 
sete (sas) 3 /® get line from stdin #/ 
while (#5/3°=NUILLD ¢ 
ES GS 
track=atoa(s)3 f#o-F 3 PSet number -1n- lime ois treck #7 
while Cisdisitt#s)==<TRUE) +423 
while Ci1sdisit¢#s)==FALSE) +423 
S@ctarsatai de) § /# secand number in line is sector #/ 
while Cisdisit(#s)}==TRUE) +4203 
While €isalpha(#s)==FQLISE) +4273 
etrecprCfilenames ss) 3 /*# the filename is last #/ 
f*# If vou want the secend field in vour input line te be a track 
relative black mumber rather than sector mumber then include 


followings Dire? 
C((sectoar-1)% blksiz) 


the 
sectors 
%/ 


Track to Ads Startin 
track, sector, filenam 
(sectar apt) ¢ 
Prat? ("sthe 


exitd1); 
3 


Print (" 


+ 


sector 


Running software 
on a multi- user 
operating system is dif- 


co ferent than running it multi- 
a user! 
we 


With DataFlex, multi- user opera- 
tion means that several users on a 
system or network can enter data in the 
same file or files at the same time with 
complete data protection. Multi-user DataFlex 

is available for: 


¢ TurboDOS Multi-User 
e IBM “PC” w/ Corvus 

e Televideo Mmmost 

¢ Molecular N-star 

e Action DPC/OS 

e OSM Muse 


¢ MSDOS Networks 
¢ CP/M Networks 

¢ Novell ShareNet 

e DMS Hi-Net 

¢ MP/M-86 

e PC-Net 


: Circle no. 83 o 
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a Sectarm? ZAds Filbecname:. Zst\r". 
c> 4) 5 
reauested is -tea bia.’ s2ss 


(Continued on next page) 


Single user DataFlex runs on CP/M 80 and 86, MSDOS, 
and IBM “PC” DOS. Applications can be created on these 
operating systems and moved to multi-user systems with- 
out change. That's transportability! 


DataFlex is the most efficient software system available for 
application development on microcomputer systems. Ail 
versions give you the essential features that applications 
need like fast on-line multi-key ISAM (to eliminate time 
consuming sorts); on-line processing of multiple files; 255 
fields per record; formatted data entry screens (for operator 
efficiency); powerful report generation; and exceptional 
performance, even with very large data bases. 


To create the best applications, start with the best applica- 
tion development system, DataFlex. It will get you running 
fast single or multi-user ...and we mean it! 


DATAACCESS 


CORPORATION 





4221 Ponce De Leon Bivd., Coral Gables, FL 33146 
(305) 446-0669 
TLX 469021 Data Access Cl 


CP/M is a registered trademark of Digital Research, MSDOS is a registered 
trademark of Microsoft 
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REC LAI i (Listing continued, text begins on page 14) 


/# get line fram stdin */ 


+i 8 


gete(s) 
=03 addr= bur} /# mow Fill the block bufFrer #/ 
while ((dread(track,sector,addr) '= ERROR) && (i < blksiz)) ¢€ 
addrt+t=SECLENS i++3 
if ((sectort+=L)ospt) Csector=13 track+=15}3 
} 


jt 
if 


/*% blkSiz Is number af sectors toa write #/ 
if ((fd=creat(filename,O) )==ERROR) 
Cerantf#¢" Unable ta create that file for wou. "31705 exitd1):3) 
@1lse@ Ll=write(fd.,bufr,»blksiz);3 


lf (C1i==ERROR) +: Cilt=blksiz)) 
{printfo" Error while writina that file.",1)5 exit(1)33 
mlase@e (fd) 5 
3 
Printf¢"N7 Successful campletian. Goodbye fram RECLAIM. ".1)3 


/* End of main Procedure #/ 


silanan() 

{ 

Printé€¢(" COMPUCATIONS Disk bleck RECLAIMation utility, lf@Ausse.".,1)3 
} 


/* Procedure toa read a sector using the BIOS, #/ 
/*# Returns true aor false for success or failure. #/ 
dread(trk,»sec,addr) 

mt trk,sec3 

char #addr 3 
3 bias (10,trk)3 /*% select the track #/ 


bicos(Llil,sec)s /*# select the sector #/ 
bies(izts,addr); /# give DMA address #/ 
if (bios(€i3,1)) return O83 /*% Perform the read #/ 
return 13 3 


/* Procedure to write a sector using the BIOs. #/ 


/* Returns true or False for Success ar Fallure. */ 


dwriteCtrk,sec,addr ) 
int trk,sec3 
char #addrs 


€ bios (10,trk); 4% select the track #/7 
bios(1ll.,sec)3 /*% select the sector #/ 
bios (l2,addr)3 /# give DMA address #/ 
If (bies(14,1)) return 03 4/* Perform the write #/ 
return 13 3 


/%*% get system Parameters fram the BIOS, Set values for 
ctor count and number of sectors in an allecatian block, 


eturn true if ok. %/ 


th ig 
ss tt 
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syvsParims () 

{ mt #deh. 13 
char #odeb.,#oshs 
l=bdos (25,0) 5 
if (C€deph=bioes(%,1))==0) return 
Qeb=deph CS 5 /# 
sPt=(dpbl1J#0%100)+dpb0073 /* 
bsh=dpb to 5 /* 
blksiz=1 5 fs 
while (Cbshd) Colksiz=blksiz#23 
return TRUES 

} 

/*® carriage return, line feed 

+ / 

mic) 

{ bedos (2,0R) 3 

} 


bdos (2>LF) 3 


/*® clear 
%/ 
clescreent) 

{ bodos (23>. HOME) 5 
3 


screen 


bdes (CS, ESC) 5 


/* Interface toa call the bias. 
%/ 
bios (funsara) 


int fun,ara} 


{ char #ofs5 
aofs=(fun-1) #35 

#4 Sir 
PoP dd saffFset 
F> ict F> hi sret 
PnP ks jara 
Push by 
Push hs 
Push c 


intd 1 


FALSE $ 

get disk Parameter black #/ 

get # sectears Per track */ 

ge@¢t black shift factor %/ 
Seebsh 1s # sectors per black #*/ 


bsh-—-3 } 


bdos Ce, “¥")3 


;Peinter ta bias 


indirect thru HL, 


function ? 


dad J ,add af fset 
mall ach]. ;call 

shia 

mice loa 

mv i he 

Pap te OFS 

Push ke 

meV Ae 

PI C(Y-L)#23 sselect disk 
jnz bisosout 


sche 
bigsouts 
#endasm 
3 


#a sim 
aah]: 
#endasm 


Pach] 


;1f ves 
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Put the 


deh addriin DE. 


End Listing 
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his article presents a set of constants 

that enhances many different kinds 
of binary calculations. These ‘“‘magic 
numbers’? can be used to determine the 
positions of bits within words; to reverse, 
permute, and map bits within words; to 
compute sideways sums and parity; and 
to convert Gray code values to their bi- 
nary equivalents. An understanding of 
these numbers and their applications can 
benefit the machine language programmer 
and can improve code generation in 
compilers. The applications for these 
constants will arise naturally in the con- 
struction of algorithms for the solution 
of each problem. 





Introduction 


The field of mathematics has uncov- 
ered many ‘“‘magic numbers.’ These are 
numbers which have special or unusual 
properties when used in certain calcula- 
tions. For example, the magic number 
142,857 is the smallest “‘cyclic number.”’! 
Cyclic numbers produce a result that is a 
cyclic permutation of the original num- 
ber’s digits when multiplied by an integer 
less than or equal to the number of digits 
in the original number: 


1 * 142,857 = 142,857 
2 * 142,857 = 285,714 
3 * 142,857 = 428571 
4 * 142,857 = 571,428 
5 * 142.857 = 714,285 
6 * 142,857 = 857,142 


Most magic numbers have little or no 
application apart from being mathemati- 
cal curiosities, and no computer uses are 
known for them. Cyclic numbers are no 
exception to this; they are elegant but 
have no practical value. One of the rea- 
sons for this is that many numerical tricks 
like cyclic numbers rely on decimal (base 
10) format. Most computers operate un- 
comfortably at best using base 10 arith- 
metic and prefer to stick to binary (base 
2). Most exploration for number ‘‘magic’’ 
has been conducted in the decimal realm, 
so there has been only limited discussion 
of binary magic numbers. 

Binary magic numbers do exist, and 
these numbers can be used to significantly 
enhance certain computer operations. 





Edwin FE. Freed, Mathematics Depart- 
ment, Harvey Mudd College, Claremont, 
California. 


This article concentrates on a specific se- 
quence of binary magic numbers. The 
Nth number in this sequence will consist 
of an infinite sequence from right to left 
of 2N 1’s, followed by 2N 0’s, followed 
by 2N 1’s, and so on: 


..0101010101010101 
..0011001100110011 
.. 0000111100001111 

. 0000000011111111 


In practice, however, binary opera- 
tions are limited to a finite word size. For 
a word size of 8 bits, there will be three 
numbers: 


B[1] := 01010101 
B[2] := 00110011 
B[3] := 00001111 


There will be four B-constants for word 
sizes of 9-16 bits, five for sizes of 17-32 
bits, and so on. The bit complements of 
these binary values will also prove to be 
useful: 


B[4] := 10101010 
B[5] := 11001100 
B[6] := 11110000 


Notation 


All of the example algorithms in this 
article are presented in Pascal. The reader 
is assumed to be familiar with Pascal and 
with the basics of boolean algebra. 

Pascal does lack full-word logical 
operations (logical functions which apply 
on a bit-for-bit basis to each bit in an 
integer value) as standard functions, so 
the following special functions are as- 
sumed to be implemented: 


IAnd (X, Y) —return bit-for-bit 


AND of X and Y. 


4; 


array 
array |1..12] 
integer; 


010101010101; 
11100001111; 


ee ee 


1 
1 
000011110000; 
$= \ta$o" MN do-S! 1 


n 

1 = 
5 = 
le te 
7 = 


| 


tH 


B 

B 

01010101010; B 
B 

] 


IOr (X, Y) —return bitwise inclusive 
OR of X and Y. 

IXor (X, Y) —return bitwise exclusive 
OR of X and Y. 

INot (X) —return bit-for-bit 


complement of X. 


LShift (X, N) —return X shifted left 
by N bit positions. 
Zeroes are shifted into 
the low-order bits. 


RShift (X, N) —return X shifted right 
by N bit positions. 
Zeroes are shifted into 
high-order bits. 


Some of the methods shown assume 
integer overflows will not be detected. No 
other extensions to Pascal are used. All 
variables are explicitly declared and the 
integer type is the only type of variable 
used. Some global machine-dependent 
constants are assumed to have been de- 
clared outside the example routines. N is 
the number of bit positions in an integer 
value. V is the base 2 logarithm of N 
rounded to the next highest integer. The 
values B[1] through B[2*V] are consid- 
ered to be global constants and are fre- 
quently used in the routines. B[1] through 
B[V] will be the binary magic numbers 
defined above and B[V+1] through 
B[2*V] will be their bit-for-bit comple- 
ments. The constants S[1] through S[N] 
are a table of the powers of 2 within the 
range of the machine. S[Q] will be equal 
to 22. The global constants might be ini- 
tialized on a 12-bit machine by th Pascal 
code fragment in Figure 1, below. 

Most of the algorithms will be more 
useful if they are recoded in a specific 
machine language. No sophisticated Pascal 
constructs like sets or records are used, so 
the translation process should be quite 


ie of integer; 
of integer; 


001100110011: 
OO0007 F414 E113 
110011001100; 
111100000000 ; 
nite i, preqc iy 


mi i wt i 


ee 


Figure 1. 
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Z80 CP/M 'sortwareE 


HIGH QUALITY — LOW COST 


OVERBEEK ENTERPRISES is committed to providing quality software at extremely low prices. 
We intend to make a handsome profit by having thousands of satisfied customers. We believe that 
the following two products represent truly outstanding bargains. 


$ 


Micro-WYL 
A powerful, Z80 CP/M text editor 





Tired of trying to use ED under CP/M? This is the 
editor developed by Realworld Software, Inc. and 
reviewed in Infoworld (11/15/82). 


— Here are quotes from customers and reveiwers — 


“Micro-WYL is undoubtedly the hottest software 
bargain on the market” 


“thank you, thank you, thank you” 
“Micro-WYL is truly terrific” 


— Those are quotes from unsolicited letters from our customers. 





“While | am an avid Wordstar user, | personally 
prefer the ease and convenience of Micro-WYL 
when writing programs. The price is right and the 
product is great. Try it. This editor has numerous 
features not described in this review - all of which 
help to make this product an essential part of your 
program base.” 


— From a review in the PASCAL MT Users Group Newsletter. 





“This editor is perfect for writing in nearly any 
programming language. [I] .. . find myself looking 
for excuses to use Micro-WYL, and certainly have 
no hesitation in recommending it to anyone whose 
requirements match the capabilities of this inventive 
piece of software.” 


— From a review in Infoworld (11/15/82) 





We do offer a great editor at an unbelievably low 
price. WYLBUR‘has been popular on IBM mainframes 
for over a decade. 

Now you can have the convenience of WYLBUR on 
your micro. 

‘CP/M is a registered trademark of Digital Research, Inc. 


2WYLBUR is aregistered trademark of The Board of Trustees ofthe 
Leland Stanford Junior University 


Make your check out to: 


Overbeek Enterprises 
P.O. Box 726 
Elgin, IL 60120 


$ 
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DISK INSPECTOR ; 
a program that runs under Z80 CP/M 
for disk inspection and modification 





Have you ever been unable to read a file due toa 
bad sector? Have you ever erased the wrong file? 
Disk Inspector acts as a full-screen editor for disk- 
ettes. You can simply watch as sectors are displayed 
on the screen in both character and hex formats. 

When you wish to make the display pause, touch the 
spacebar. If you wish to alter a sector, it is a simple 
matter to move the cursor over the appropriate 
character, alter it, and have the sector rewritten. 


Although Disk Inspector runs under CP/M you can 
inspect and alter normal (non CP/M) Apple diskettes, 
as well. The disk drives may be single or double 
density, single or double sided. The comprehensive 
manual will show you how to: 

Recover an erased file. 

Modify a director entry. 

Clean up a directory. 

Utilize the CP/M Auto-Load feature. 

Create multiple directory entries. 

Read and modify non CP/M diskettes. 


The Disk Inspector is a full-screen editor for disks. 
Our competitors offer products in the $100-$200 
range. We certainly invite comparison of this product 
with any comparable system in terms of features or 
user friendliness. In terms of price, there is no 
comparison. 


Note: Disk Inspector requires an 80 x 24 screenon yourCRTandis 
currently available only in 8” SSSD, Kaypro, Apple/Softcard, 
NEC, and Altos Series 5 formats. 


LJ 8” sssp L] ALTOS Series5 —_—sNorthstar 5” DD 
L] Apple/Softcard [] Televideo TS-802 [1] Advantage 
L) KAYPRO 11 5” LJ Osborne LJ Horizon 

L) NEC 5” L] Superbrain 


Amount: $25 for Micro-WYL 
$29.95 for Disk Inspector 





$2 for postage & handling 
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Name__ 
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Circle no. 46 on reader service card. 
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easy. The special logical functions will 
correspond to single instructions on most 
machines. 


Some of the algorithms discussed 
below will involve the positions of bits 
within words. Some consistent numbering 
scheme for these bits is required. The 
least significant bit of a value is called 
bit O and numbering proceeds to the left. 
The sign bit of the value (most significant 
bit) will be bit (N-1). If the eight digit 
positions in an 8-bit word were each 
filled with their corresponding numbers, 
the result would be 76543210. Note that 
this numbering scheme can be derived 
from the constants B[V+1] through 
B[2*V] if they are read as binary values 
from bottom to top in each digit column. 
This is a very important property of these 


numbers that will be used frequently. 

A few of the algorithms assume 
that negative values are stored in two’s- 
complement form. This is usually not a 
problem — there are not very many one’s- 
complement or signed-magnitude ma- 
chines. 


Locating Bits 


One commonly needed binary opera- 
tion is the ability to locate the lowest or 
highest zero or nonzero bit in a value. 
This is often used in operating systems, 
when sets of boolean flags are grouped 
together in a single word and each flag 
requires a specific action. Bit location 
Operations are of particular interest in 
scheduling algorithms, where quick exe- 
cution is essential. 
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user under CROMIX. 
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86 or MSDOS. 








Osborne, Apple, many others. 
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WE EXPORT 


* * * TECHNICAL SALES AND SUPPORT STAFF * * * 


Our ads have appeared continuously in Byte Magazine since 1977. We are Byte’s 
oldest advertiser after Cromemco and Godbout. 
appearing in Microsystems and Dr. Dobbs? Our product lines and technical staff 
address the needs of sophisticated, informed and intelligent users such as readers 
of Microsystems and Dr. Dobbs. Although we have added some non-S-100, home 
computer systems to our catalog, we will continue to focus on more sophisticated, 

high performance, high technology equipment. 


MASTER MAx: Z-80, IEEE 696 S-100 system with dual 8” drives. Features Inter- 
continental CPZ48000 single card computer. 4 DMA channels and universal inter- 
rupt controller give great versatility and speed. $2,540 includes CP/M. OPTIONS: 
ICMS slave cards, TURBODOS (single or multi user), double sided drives, single 
or dual Winchester subsystem, 220v/50hz. 


IMS MULTI USER SYSTEMS: 2-80, S-100.CP/M compatible Turbodos cuts 
link/edit time in half. Z80 code, interrupt driven. Up to six times faster than CP/ 
M; up to 35% increased disk capacity. Slave cards give each user own CPU, 64K 
RAM, 21/O. No speed degradation as users are added! On site service for NY quad 


GODBOUT DUAL PROCESSOR 816 SYSTEMS: 8085/8088. Multi or single 


user. Unique version of MP/M allows simultaneous use of both processors. 


CROMEMCO DUAL PROCESSOR SYSTEM: Z380/68000, multi or single 


a 


LOMAS and SEATTLE 8086 implemented by J.D. Owens in choice of several 
S-100 mainframes w/ dual drives. 1OMHZ option, dynamic or static RAM. CP/M 


GRAPHICS: MICROANGELO (S-100) OR MIRAGE (RS232). Monochrome or color. 
AUTOCAD: Interactive graphic software for engineers, architects, others. HOUS- 
TON INSTRUMENTS digitizer and plotters. 


S-100 BOARDS: Godbout, Systems Group, SSM, ‘Tarbell, Morrow. CCS; Sierra 
Data, Teletek, Intercontinental Micro and others. 


ACT SINGLE OR DUAL WINCHESTER SUBSYSTEMS: Dual version 
solves back up problem. Implemented for CP/M, TURBODOS, TRS 80, IBM PC, 


MODEMS: U. S. Robotics DC Hayes compatible modems at much lower prices. 


PERIPHERALS: CRTS (Televideo, Hazeltine, Zenith, Wyse, others); many dot 
matrix and letter quality printers, floppy disk subsystems (Shugart, Qume, Tandon, 
Per Sci). Full line of RAM and other accessories for IBM PC. 


SPECIAL INVENTORY SALE: (while they last) IMS boards at 25% off list price. S 


We also offer EPSON QX10, Otrona Attache, NEC Advanced Personal Computer, 
Morrow Micro Decision, Cromemco C10. 


3270 NETWORK: Teletype controllers, printers and terminals. Cost effective. 


CALL OR WRITE FOR FREE PRODUCT SPECS ON ANY ITEM WE CARRY 


Overseas Callers: 
TWX 710 588 2844 or Cable: OWENSASSOC 
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Phone (212) 448-6298 


SALVIDOSSV SN4MO ‘d NHO[ 


JOHN D.OWE NS Associates, Inc. 


12 Schubert Street, Staten Island, New York 10305 
(212) 448-6283 (212) 448-2913 (212) 448-6298 





Many large machines include special 
‘exotic’? instructions to locate zero or 
nonzero bits in a value. The DEC-10 has 
the JFFO instruction, which is a mne- 
monic for ‘jump if found first one.” 
This operation tries to find the highest 
nonzero bit in a 36-bit value and option- 
ally branches if the operation is successful. 
By contrast, the VAX-11 instructions set 
includes the FFS and FFC instructions, 
which are mnemonics for “find first set’’ 
and ‘“‘find first clear,”’ respectively.? These 
instructions search a field (an extracted 
portion of a 32-bit value) from the low- 
est bit up for the first zero or nonzero 
bit. Neither machine includes an explicit 
instruction for searching in the opposite 
direction, although the CVTLD (convert 
long integer to double- precision floating) 
instruction on the VAX-11 might be used 
for this. It is also interesting to note that 
the instruction execution speed is bit- 
position dependent on the DEC-10 (the 
farther away from an 18-bit half-word 
boundary, the longer the instruction 
takes) and is position independent on. the 
VAX-11 (the same amount of time is 
taken for each bit position).* It is vital to 
be aware of such speed dependencies if 
exotic instructions like these are used. 

Smaller machines do not usually in- 
clude such special instructions. The most 
obvious way to perform this operation 
is to successively shift the value in ques- 
tion until a bit in the proper state is 
found. The lowest bit can be checked 
with an AND, and the highest bit can be 
checked by watching for a sign change. 
The functions in Figure 2, page 28, illus- 
trate these methods. 

These functions return a result of -1 
if no bit that satisfies the specified condi- 
tion can be found, and the bit position of 
the selected bit otherwise. Up to N itera- 
tions within the functions may be neces- 
sary to find the selected bit. However, it 
is possible to make use of the B-constants 
and check more than one bit position with 
each iteration. The functions in Figure 3, 
page 28, perform complementary opera- 
tions to the functions shown above by 
making use of the B-constants. Note that 
the LowClearBit function operates on the 
complement of the input value and not 
on the value itself. 


The functions operate on multiple 
bit fields at once. Each iteration of the 
for loop isolates the desired bit to one- 
half of the remaining bits in a word. The 
weighting of the bit positions is used to 
advantage in computing the final position 
by shifts and adds instead of using a table 
of constants like S. The S-constants 
could be used if the shift operation is 
difficult to implement. The assignment of 
Result within the for loop is superfluous 
during the first iteration and may be 
skipped. 

These algorithms take V iterations in 
all cases. This can be far less than N for 
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Now you can computerize your business forms 
and input screens without all that tedious, time 
consuming programming. 

With ZIP,™ it’s going to seem almost too easy. 


Just “paint” the screen. 

To prepare an input screen or output form, 
just move the cursor around the screen and type in 
text, prompts and data field names exactly where 
you want them. Use “@” to print or display values, 
use “;” for input fields. 

When the screen looks like the format you 
want, type “/S” and what you see is what you'll get. 
In seconds, ZIP writes all the program code to 
recreate the format on the screen or on paper. 

And you can use the ZIP code immediately 
just by adding a single line to your main program: 
GOSUB xxxxx in BASIC, DO Formname in 
dBASE Il. 


ZIP is quick and friendly. 

ZIP runs on virtually every 8-bit micro known 
to man, and your terminal continues to work the 
way it did (tab, arrows, etc.), so you don't have to 
learn or unlearn anything about your equipment. 

Commands are typed (no control codes), so 
you or your secretary can breeze through input 
screens and output forms up to 88 lines long and 
have ZIP whip out the BASIC or dBASE II code. 

The ZIP Talker,™ a line at the bottom of the 
screen, always tells you exactly where you are. And 
Help is just two keystrokes away. 


Now MBASIC really ZIPs. 


The MBASIC version goes further and gives 
your programs the same screen handling character- 
istics that ZIP has, by writing a piece of itself in 
MBASIC so that you can use it in any of your 
programs. 

The operator can use the arrows, etc. during 
data entry and conveniently jump back and forth 
between the input fields. 

You can specify field lengths, or let ZIP default 
to the available space. Either way, text and prompts 
are protected no matter what kind of terminal you 
have, so the operator can’t write over the fields 
and prompts. 


THE PAPE 


















W-4/ EE'S WITHHOLDING 


Pret yor het meme pad 
pat 





Los awosies 





Tareas Conte? otnee > OMPLETE SILL TO AREA BELOW 
(CHARGES ARE ASSUMED TO BE COLLECT 
HERWISE INDICATEO) 


VERON: Ct ONE: REUSED BY 





CITY/STATE 


Bo RR RK EER RTE KK 


Ke Fe RR OR RE RE I a 


CUSTOMER NAME: 
MAIL ADDRESS: 
CITY: 


*Customer$ DATE: @ Date 
*Addr1$:30 
sAddr2$ 


STATE: ;Addr3$ Ale 


SHIP ADDRESS: ;Addr4$:30 
: sAddr5$ 
: ;Addr6$ y Al 3 


DISCOUNT CATEGORY: ;Rate! 
THE CODE FOR THIS NEW CUSTOMER IS @CustCode. 


;Lipl:5 
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large word sizes, but the iterative loop 
operation is more complex. The distribu- 
tion of bits in the input values that ap- 
pear in a given application must also be 
considered. The LowSetBit function 
presented in Figure 2 may use an average 
of fewer than V iterations if nonzero 
low-order bits are prevalent in the input 
values. 

It is possible to simplify the last two 
functions if it is known that there is only 
a single nonzero bit in the value. It be- 
comes unnecessary to replace the input 
value as the algorithm proceeds since the 
desired bit is already isolated, so the 
Temp and Ival variables are not needed. 

It is very easy to check for a single 
nonzero bit in a word. Given Value, 
“((Value <> 0) and (IAnd (Value, pred 


(Value)) = 0))” will be true if and only if 
there is a single nonzero bit in Value.> An 
alternate test is “((Value <> 0) and 
(And (Value, -Value) = Value)).”’ 


Sideways Addition 


The sideways sum of a number is the 
sum of all the individual digits in the 
number taken one at a time. The sideways 
sum will be different depending on the 
base the number is represented in. For 
example, the sideways sum of the decimal 
value 12345 is 15, and the sideways sum 
of the binary value 10110 is 11 (in binary). 
A binary sideways sum is just the count 
of the 1’s in the binary value. 

Sideways sums have many interesting 
mathematical properties and applications. 
Decimal sideways sums are the basis for 
an old trick for determining divisibility 
by 3 or 9. If a number is evenly divisible 
by 3 then the decimal sideways sum will 
also be evenly divisible by 3. The same 
property holds true for 9 as well. (The 
decimal sideways sum always gives a value 
with the same remainder modulo 3 or 9 
as the original value.) Since the sideways 
sum of a number is usually much smaller 
than the number itself, it is easy to check 
divisibility of a large number by iterative- 
ly computing sideways sums until a man- 
ageably small value is obtained. 

A binary value can be thought of asa 
representation of a set. Each digit corre- 
sponds to a single element that may possi- 
bly be in the set. A digit value of 0 means 
the element is not present and a value of 
1 means the element is present. In this 
scheme (which is used by many program- 
ming languages), the binary sideways sum 
indicates the cardinality of a set — it is a 
count of the number of elements in the 
set. 

Some machines have implemented 
the binary sideways sum as an instruction. 
The CDC (Control Data Corporation) 
6400, 6500, and 6600 series processors 
implement the ““CXi Xk” instruction. 
This instruction counts the number of 
nonzero bits in register Xk and stores the 
result in register Xi. i and k are single 
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function LowSetBit (Value 
var 
Temp, Result : integer; 
begin 
if Value = O then LowSetBit := -1 
else begin 
Temp := Value; 
Result := QO; 
while not odd (Temp) do begin 
Temp := RShift (Temp, 1); 
Result := succ (Result); 
end; 
LowSetBit := Result; 
end; 
end; 


integer) integer: 


function HiClearBit (Value 
var 
Temp, Result : integer; 
begin 
Temp := Value; 
Result := pred (N); 
while Temp < O do begin 
Temp := LShift (Temp, 1 
Result := pred (Result) 
end; 
HiClearBit := Result; 
end; 


integer) integer; 


}5 


Figure 2. 


function LowClearBit (Value 
var 
Temp, Result, Ival, I 
begin 
if Value = -1 then LowClearBit := -1 
else begin 
Ival := INot (Value); 
Result <= 03 
for I := V downto 1 do begin 
Result := LShift (Result, 1); 
Temp := IAnd (Ival, B(I]); 
if Temp = O then Result := suce (Result) 
else Ival := Temp; 
end; 
LowClearBit := Result; 
end; 
end; 


integer) integer; 


integer; 


function HiSetBit (Value : integer) 
var 
Temp, Result, Ival, I 
begin 
if Value = O then HiSetBit := -1 
else begin 
Ival := Value; 
Result := 0; 
for I := V downto 1 do begin 
Result := LShift (Result, 1); 
Temp := IAnd (Ival, B{V+I]); 
if Temp <> O then begin 
Result := suce (Result); 
Ival := Temp; 
end; 
end; 
HiSetBit := Result; 
end; 
end; 


integer; 


integer; 


Figure 3. 





octal digits and serve to identify one of 
the eight 60-bit X registers available on 


function SideSum (Value the machine. The time used for this oper- 


integer) : integer; 


var 
Temp, Result 
begin 
Temp := Value; 
Result := Q; 
while Temp <> O do begin 
Result := Result + IAnd (Temp, 
Temp := RShift (Temp, 1); 
end; 
SideSum := Result; 
end; 


integer; 


Figure 4. 


function SideSum (Value : integer) 
var 

Temp, Result : integer; 
begin 

Temp := Value; 

Result := 0; 

while Temp <> O do begin 

Result := succ (Result); 


integer; 


Temp := IAnd (Temp, pred (Temp) ); 


end; 
SideSum := Result; 
end; 


Figure 5. 


function SideSum (Value : integer) 
var 
Result, I : integer; 
begin 
Result : 
Tore. ee 
Result := 
IAnd (Result, B{I]); 
Sidesum := Result; 
end; 


= Value; 
1 to V do 


Figure 6. 


function Parity (Value : integer) 
var 

Temp : integer; 
begin 

Temp := Value; 

Result -2= 0; 

while Temp <> O do begin 


Result := IXor (Temp, Result); 
Penpit= Honiftt (Temp; 1}; 
end; 
Parity := IAnd (Result, 1); 
end; 


Figure 7. 


integer; 
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integer; 





ation varies even within this series of ma- 
chines; the 6400 and 6500 require 68 
minor cycles while the 6600 needs only 
eight. For comparison purposes, an inte- 
ger addition takes six minor cycles on the 
6400 and 6500 and three minor cycles on 
the 6600.° 

The most obvious way to compute a 
binary sideways sum is to iteratively shift 
the value right and count the low-order 
bits as shown in Figure 4, at left. 

This method can take up to N itera- 
tions, but it typically takes fewer than N 
since small values are fairly common. 
There are many possible variations on this 
basic type of function, including using 
bits shifted out the top of a value, shift- 
ing an entire field out of the value and 
looking up its sideways sum in an auxili- 
ary table, and using floating-point nor- 
malization hardware if it is available. 

The test for a single nonzero bit pre- 
sented above may also be adapted to pro- 
duce a sideways summation algorithm 
(see Figure 5, at left). The number of 
iterations for this method is equal to the 
final sideways sum result. The average 
number of iterations would be N/2 if 
a random value (each bit has an equal 
chance of being 0 or 1) is input. 

It is possible, however, to operate on 
multiple fields within a value simultane- 
ously, first adding adjacent bits, then bit 
pairs, and so on. The coding of this meth- 
od is set forth in Figure 6, at left. This 
method uses only the uncomplemented 
B-constants and takes V iterations in all 
cases. There is only a slight increase in the 
number of operations required in the 
loop over the first SideSum function. 
This method is preferred when a large 
number of 1’s are expected in the input 
value. 


Parity 

A slight variation on sideways addi- 
tion is to just record whether or not the 
sum of the digits is even or odd. This re- 
sult is called the parity of a number and 
applications for it frequently arise in 
error correction techniques. 

Parity is usually thought of as the 
exclusive-OR of all the binary digits in 
a value — thus a O indicates even parity 
and a 1 indicates odd parity. Many micro- 
computers include hardware to compute 
parity bits easily, but many larger ma- 
chines do not have such facilities. The 
simplest way to compute parity, illustrated 
in Figure 7, at left, is analogous to the 
first method for sideways sum computa- 
tion involving repetitive shifts and tests. 

As before, this operation can take up 
to N iterations but typically requires 
somewhat fewer. The method can be al- 
tered to take advantage of link bits or 
floating-point normalization instructions 
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function Parity (Value 


var 
Result, 
begin 
Result 
TOP: kL) Se 
Result := 


Pe 3 


integer; 


{e-V¥alue> 
to: do 
IXor (Result, RShift (Result, S{I])); 


integer) 


integer; 


Parity += .TAnd “Resutt.,. 193 


end; 


function IXor 
begin 

TROT. 
end; 


ee: 


integer) : 


Figure 8. 





integer; 
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Figure 9. 


function Parity (Value 


var 
Result, I 
begin 
Result : 
TAnd ( 
TOPS 
Result := 
+ Result, 
Parity := IA 
end; 


2 
1 


integer; 


= IAnd (IAnd 

Vaitue, Bi 1 |), BE1 19% 

to V do 
IAnd (RShift (Result, S[I]) 


Blt) 





: integer) integer; 
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nd- (Result, 1); 





Figure 10. 
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(which typically shift the uppermost 
nonzero bit to the highest bit position 
automatically). For example, the 8087 
numeric data processor can be used in 
this fashion by reading an integer value 
into the unit and subsequently writing 
the value out in floating-point form.’ The 
mantissa of the result will then be the orig- 
inal integer shifted left so that the highest 
nonzero bit is at the top of the field, and 
the exponent is an indication of the num- 
ber of shifts that were needed. Care must 
be taken to intercept negative values and 
to use a floating-point format capable of 
holding an entire integer in its mantissa 
without loss of accuracy. The 8087 is 
slightly cumbersome to use in this fashion 
as it requires reading and writing the val- 
ues into memory instead of performing the 
operation entirely in registers. Machines 
with simple conversion instructions are 
actually more versatile in this case. 

The second method presented for 
sideways addition can also be adapted to 
compute parity. This algorithm is easily 
derived from the SideSum function and 
will not be presented here. 

Figure 8, at left, shows how the third 
method for sideways addition can be 
adapted into a parity function with consid- 
erable ease. This algorithm always takes 
V iterations. The B-constants are not re- 
quired since exclusive-OR operations do 
not generate carries and masking is not 
necessary. 

One peculiarity that must occasional- 
ly be dealt with is machines that do not 
possess exclusive-OR hardware. Of course, 
the exclusive-OR may be coded in terms 
of other logical operations (see Figure 9, 
at left). This is a very costly operation. It 
may be more practical to compute the full 
sideways sum and extract the lowest bit 
rather than using this cumbersome 
function. 


The third sideways sum technique 
may alternately be adapted to provide the 
parity of a value using only ANDs, shifts, 
and normal addition. This is accomplished 
by noting that an exclusive-OR is essen- 
tially an addition with no carry, so all 
that must be done is to prevent additive 
carries from crossing from one field of 
the number to the next, as in Figure 10, 
at left. This technique is interesting 
in that it requires only one of the binary 
magic numbers. (V-1) iterations are re- 
quired, but some preliminary calculations 
of greater complexity than the iterative 
one must be performed. 


Another peculiarity of some machines 
is the lack of an AND instruction. Such 
machines, notably the LSI-11, PDP-11, 
and VAX-11, have a bit test instruction 
(BIT) that performs an AND but does 
not store the result. These machines also 
have a bit clear instruction (BIC), which 
corresponds to an “AND-NOT” opera- 
tion.? This does not present a problem 
with any of the algorithms shown in this 
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article. Most uses of [And involve a con- 
stant. The constant is just complemented 
and then the BIC operation can be used. 
One exception to this is the [Xor func- 
tion, which can be recoded more simply 
using the statement “IXor := [Or (BIC 
(X, Y), BIC (Y, X)).” The only other ex- 
ceptions are the tests for a single nonzero 
bit. The first test does not require the 
storage of the result, so a BIT instruction 
could be used or an INot can be inserted. 
The second test can be expressed as 
“((Value <> 0) and (BIC (Value, pred 
(Value)) = Value)).”’ 


Weighted Sideways Addition 


Sometimes it is necessary to perform 
sideways addition with each digit weighted 
differently. This requires multiplying 
each digit by a fixed constant before sum- 
mation is done. The way numbers are 
normally interpreted is merely a special 
case of this operation; each digit of a 
number is weighted by successive powers 
of the base of the number system. Thus 
numbers themselves can be thought of as 
just collections of digits where a particu- 
lar type of weighted sideways addition is 
used to compute their value. The conven- 
tional sideways sum is another special 
case — each digit has unary weight. 
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Weighted sideways sums can be used 
to generate arbitrary mappings and per- 
mutations of bits within words. A permu- 
tation is a rearrangement of the bits 
within a word where no bits are lost, and 
a mapping is a more general operation in 
that a bit may be placed in more than one 
position in the final result and certain bits 
may be lost. It is trivial to construct a set 
of weights for a sideways sum that will 
accomplish any mapping or permutation 
— each bit’s weight is a mask containing 
1’s in the bit positions the bit is to be 
mapped into. 


The additive properties of a weighted 
sideways sum can be used in a more gen- 
eral sense, however. Consider a binary 
value as a representation of a set, as it 
has been discussed earlier. Each potential 
element of the set might be said to have 
certain properties. Different elements will 
have different properties. There can be 
many properties associated with each 
member. Take the set of fruits [LIME, 
LEMON, ORANGE]. One property 
might be color — [GREEN, YELLOW, 
ORANGE]. Another might be cost — [41 
cents, 35 cents, 52 cents]. A third might 
be ordinal position — [first, second, third]. 

Some properties are not additive 
(like color) and others (position or cost) 
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of as weights and the resultant sideways 
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The straightforward way to compute 
a weighted sideways sum is to maintain a 
table of constant weights and to iteratively 
shift the input value. For the function 
Shown in Figure 11, page 33, a table of 
constant weights C[1] through C[N] 
applying to each respective bit position is 
assumed to be defined. 

This routine takes a maximum of N 
iterations, which is to be expected. There 
is no clear way to write a more efficient 
routine using the B-constants. It is neces- 
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for certain bit patterns. Consider the fol- 
lowing ascending sequence for an 8-bit 
machine: 


C[{1] := 0001 C[5] := 0101 
C[2] := 0010 C[6] :=0110 
C[3] := 0011 C[7] :=0111 
C[4] := 0100 C[8] := 1000 


A new set of weights can be derived by 
reading the columns of the C array. This 
is equivalent to constructing an 8 x 8 
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matrix with the rows of C and taking the 
reversed rows of the transpose of this 
matrix. This will create a new set of con- 
stants D[1] through D[K]. K = 4 for the 
example C-constants given above, since 
D[5] through D[8] will all be zero. In 
this example, the D-constants are actual- 
ly shifted versions of the B-constants. 

Now the D-constants can be used to 
reduce the weighted summation to a series 
of unweighted sideways sums. Each un- 
weighted sum builds a single quantity of 
constant weight for the final result, as 
illustrated in Figure 12, below. 

This method is by no means faster 
than the conventional version of Weighted- 
Sum for a general set of weights. However, 
certain special cases (such as the example 
weights given in Figure 12) will introduce 
a multitude of simplifying reductions if 
the SideSum function is coded inline, 
particularly if the D-constants bear some 
resemblance to the B-constants. The 


function WeightedSum (Value 


var 
Temp, Result, I 

begin | 
Result 
Temp ic 
ee Sage ss 
while 


cs 
Value; 


odd 


Temp <> 0 do begin 
(Samp) then Result := 


reduction of the example is left as an 
exercise to the reader. Which Weighted- 
Sum method takes fewer operations? 


Bit Reversal 


Another interesting operation to 
study is that of reversing all the bits in a 
word. Bit 0 will become bit (N-1), bit 1 
will become bit (N-2), bit 2 will become 
bit (N-3), and so on. This is actually a 
special case of the weighted sideways sum 
operation, since it is nothing more than a 
permutation of the bit positions in a val- 
ue. One application for bit reversal has 
already been encountered in the construc- 
tion of the D array from the C-constants 
for the second method of weighted side- 
ways addition. 

Bit reversal may easily be imple- 
mented by a series of shifts (see Figure 
13, below). N iterations are always re- 
quired for this function. 

This function may be modified to 


integer) 


integer ; 


integer; 


Result 


an := RShift (Temp, 1); 


ee 
end; 
WeightedSum 
end; 


suce (I); 


= Result; 


function WeightedSum (Value 


var 
Temp, Result, lI 
begin 
Result :=.0; 
Por: aes 


Result := 
end; 
WeightedsSum 

end; 


= Result; 


Figure 11. 


integer) integer; 


integer; 


to K do begin 
SideSum (IAnd (Value, D[I]), 
LShift (Result, 


Temp); 
1) + Temp; 


Figure 12. 





function ReverseBits (Value : integer) : integer; 


var 
Temp, Result, I 
begin 
Temp := 
FOr Liz 
Result 
Temp 
end; 
ReverseBits 
end; 


Value; 


:= Result; 





integer; 


1 to N do begin 
:= LShift (Result, 
= RShift (Temp, 1); 


i) + tind (Temp...) 3 


Figure 13. 
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CP/M is a registered trademark of Digital Research, Inc. 
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function ReverseBits (Value : integer) : integer; 
var 


Result, I integer; 
begin 
Result := Value; 


COP Lt “to BSAV cas 
Result: $= LlAnd. <iehitt (Result, Ss 
TAnd (RShift (Result, S[I]), Bf 
ReverseBits := Result; 
end; 


J), BEV+I]) + 


Figure 14. 


function GrayToBinary (Value : integer) : integer; 
var 
Temp, Result : integer; 
begin 
Result: .='O% 
Temp := Value; 
while Temp <> O do begin 
Result := IXor (Result, Temp); 
Temp := RShift (Temp, 1); 
end; 
GrayToBinary := Result; 
end; 


Figure 15. 
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reverse the bits in a quantity (2*N) bits 
long. The high-order part of the input 
quantity is passed in Result, and all that 
is necessary is to modify the function to 
copy the sign bit of Result to the sign bit 
of Temp on each iteration. The final 
value will be contained in Temp and Re- 
sult. No additional iterations are needed. 

Many small computers have an addi- 
tional bit which is attached to the high- 
order end of the register used for shift 
operations. This bit is usually called the 
link or carry flag. This bit can be a nui- 
sance when performing some circular ro- 
tate operations since it acts as an extra 
bit position between the least significant 
bit and the sign bit. Nevertheless, a carry 
flag can be used to advantage in bit-reversal 
routines. For example, the Motorola 
6800 can be used for bit reversal of a 
16-bit quantity if the high-order 8 bits of 
the input value are placed in accumulator 
A, the low-order 8 bits of the input value 
are placed in accumulator B, the following 
two instructions are repeated eight times: 

ROLA 
ROR B 


and finally a single ‘“‘ROL A”’ instruction 
is executed. The result will be in the accu- 
mulators in the same configuration as the 
input value. The H, I, and C flags will be 
unaffected and the N, Z, and V flags will 
be set according to the high-order 8 bits 
of the result. 

It is possible to use the B-constants 
to minimize the number of iterations re- 
quired as in Figure 14, at left. This 
method is restricted to machines where N 
is a power of 2. This will not be a prob- 
lem on most processors since word lengths 
of 8, 16, and 32 bits are the most com- 
mon. There are some processors, however, 
where this method cannot be imple- 
mented, like the PDP-8 and Intersil 6100 
(12-bit), the DEC-10 (36-bit), and most 
CDC machines (60-bit). This method re- 
quires only V iterations in all cases. It 
should be avoided on machines which 
have difficulty in shifting a quantity by 
more than one bit position at once, and 
on machines whose word length is not 
a power of 2. 


Gray Codes 


Gray codes are essentially an alter- 
nate set of counting numbers that have 
different rules than most conventional 
number systems. When Gray code num- 
bers are placed in counting order, any 
adjacent pair of numbers will differ in at 
most one digit position, and the absolute 
value of the difference in that digit posi- 
tion will always be one. 

There are an infinite number of Gray 
codes, and Gray codes exist for every nu- 
meric base. The simplest Gray code of all 
is the binary reflected Gray code, which 
will be the code under discussion here. 
The binary reflected Gray code is used 
more often than any other Gray code. 
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Gray codes have many applications 
such as error correction in pulse-code 
modulated systems. There are several 
places in recreational mathematics where 
Gray codes turn up; the disk motion 
of the Towers of Hanoi problem is an 
example.® 

It is easy to convert an ordinary 
binary number into its binary reflected 
Gray code equivalent. If Value is the 
binary number, ‘“IXor (Value, RShift 
(Value, 1))” will be the Gray code 
equivalent for Value. The conversion of a 
Gray code number to its binary equiva- 
lent is not so easy. Each bit of the original 
binary number may be recreated by 
taking the exclusive-OR of the corre- 
sponding bit in the Gray code with all the 
bits to its left (higher-order bits including 
the sign bit). For example, a binary value 
of 0111 would be converted to 0100 in 
Gray code. 

The conversion of a Gray code value 
into its original binary form may be ac- 
complished by the function in Figure 15, 
page 34. The function requires at most 
N iterations to complete the operation. 

The final value created can be repre- 
sented in tabular form as an “addition 
problem,” where exclusive-OR is used 
instead of normal addition. If each bit 
position in Value is labeled with a letter 
‘a’? through ‘“‘n’’ (assuming that N=8 
and ‘‘a’’ is the label for the highest bit), 
the problem can be seen as: 


abcdefgh 
abcdefg 
abcdef 
abcde 
abcd 
abc 

ab 

a 


Result 


In order to solve the problem in V 
iterations, it is useful to first define the 
set of augmented constants T[1] through 
T[V] by the relationship “T[Q] := 1And 
(LShift (B[Q], 1), LShift (B[Q] , S[Q] )).” 
The T-constants are shown here for N = 
16: 


T[1] := 1010101010101010 
T[2] := 0100010001000100 
T[3] := 0001000000010000 
T[4] := 0000000 100000000 


The Nth T-constant is formed by repeat- 
ing a pattern from right to left of (2N-!) 
Os, followed by a single 1, followed by 
(2N-1-1) Os. 

The method used with the T-constants 
is vaguely similar to the “divide and 
conquer’? method of Ercegovac.® 1° Each 
iteration builds several different fields of 
the final result. Multiplication is used in 
the loop — this method should be avoided 
on machines which do not have integer 
multiplication hardware. The multiply 
operation is used to shift single-bit fields 
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function GrayToBinary (Value 
var 
Result, I : integer; 
begin 
Result : a 
for. 1 = to V do 
Result := IXor (Result, RShift (IAnd (Result, 


1 Bags Ae BR 
(pred (S[suce (S[I])])); 
GrayToBinary := Result; 
end; 


integer) integer; 


= Value; 
1 


Figure 16. 
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into multiple positions in the word (see 
Figure 16, page 35). 


The pattern generated by this func- 
tion is quite interesting. After the first 
iteration, the value in Result is (using the 
same “addition problem” notation as 
above and assuming N = 8): 


abcdefgh 
aceh 
Result 


After the second iteration, the pattern is: 


abcdefgh 
abc efg 
ab ef 
ae 


Result 


On the third and final iteration, the 
binary equivalent is obtained. 


procedure CreateBConstants; 

var 
Temp, 

begin 


I: integer; 


downto 1 do begin 


IXor (Temp, LShift (Temp, S[I])); 
T 
= INot (Temp); 


Figure 17. 





procedure CreateTConstants; 
var 
Temp, 


i integer; 


Generation of Constants 


It may be necessary in some pro- 
gramming environments to create the 
B-constants dynamically instead of just 
reading them from a table. The B-constants 
are easily generated using the S-constants 
(which are in turn quite easy to create 
using a single LShift). See Figure 17, at 
right. 

The dynamic generation of the B- 
constants may be “blended” with the 


downto 1 do be 
Shift renee S 


n 
] 
Or (Temp, T(I] 


rs 


al 
I 


Figure 18. 
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inner loop of most of the algorithms 
given in this article. Each iteration of the 
loop then generates the constant it re- 
quires using a temporary variable that is 
initially set to -1. Unfortunately, it does 
not appear to be possible to perform this 
operation in the reverse order, that is, 
derive B[Q+1] from B[Q]. This makes 
it difficult to add the code for dynamic 
generation of the B-constants to the 
inner loop of the SideSum function. Al- 
though the ReverseBits function loop is 
written in ascending order, it may operate 
in either direction, so it is possible to 
generate the B-constants as the loop 
proceeds. 

The T-constants used in the GrayTo- 
Binary algorithm may be generated from 
the B-constants by using their defining 
relationship. Alternately, a similar itera- 
tive process can be used, which also pro- 
ceeds in the wrong direction to make it 
useful within the inner loop of the Gray- 
ToBinary function (see Figure 18, page 
36). The assignment of Temp in the last 
iteration of the loop is not needed and 
always sets Temp to -l. 


Advanced Applications 

More sophisticated applications for 
the B-constants exist. They can be used 
to transpose bit matrices!!»!2 and there 
are even applications for these constants 
in certain error correcting codes. These 


ms es ne een - o atesenen BAD re’ canete’ 
ee eareheate > Sree . 
*, o * 
Somrarangrnrenan nasa ras 
ee 


eis Os Cada nen 





applications are beyond the scope of this 
article, and might be the subject of a 
future one. 


Conclusion 


This article has covered many appli- 
cations for this particular set of binary 
constants. The behavior of all these 
algorithms seems to have a lot of things 
in common-—the normal and obvious 
method for performing the operation 
typically takes up to N iterations, where 
N is the word size of the machine, and 
the method using the B-constants takes V 
operations, where V is the base 2 loga- 
rithm of N rounded up to the nearest 
integer. For large word sizes (or when 
operating on multiword values with a 
smaller machine), these algorithms repre- 
sent a considerable savings in execution 
time. Judicious use of these techniques 
may improve many machine-language 
programs. 
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An 8080 Fig-Forth © 


File 





Directory an 


his article describes a Forth program 

which overlays a directory and file 

system on the version of Fig-Forth 
which has been adapted to the North Star 
disk system by Interactive Computer Sys- 
tems, Inc., 6403 Demarco Road, Tampa, 
Florida 33614. The program requires 
only one CODE word linkage to the 
North Star DOS to implement a dozen 
useful file commands. Except for this one 
disk-system-peculiar word, the entire file 
overlay is written in high-level Forth; 
hence the end product is highly portable. 

The article commences with a com- 
mands summary in Fig-glossary style. 
This is followed by a short discussion of 
the author’s rationale for the approach 
used and a description of the North Star 
disk and directory formats. The article 
concludes with a few explanatory notes 
as an aid in deciphering the appended 
listing. 





Summary of Commands 


All commands that prompt for input 
can be aborted after the prompt occurs 
by typing a ctrl-c. Input errors which are 
detected by the operatot, as opposed to 
the command itself, may be corrected by 
typing a space and re-entering the correct 
input after the prompting error message. 
File names and disk names may be from 
one to eight of any printing ASCII char- 
acters from ! to Z inclusive (33 hex to 5A 
hex inclusive). Note that this differs from 
the North Star format, which requires 
alpha and numbers only. The validity of 
the range of drive numbers (1-3) is 
checked in all commands where drive 
number is an input. 


The following is a summary of the 
commands in Fig-glossary style: 


CD DR#1 DR#2... 


Copies diskette on drive DR#1 to disk- 
ette on drive DR #2. 


CF DR#1 DR#2... 

Copies a named file on drive DR#1 toa 
named file on DR#2. The names of the 
files are prompted. The file on drive 
DR#2 does not have to pre-exist; its 
directory entry will be created. If it does 
pre-exist, the file transfer will occur only 
if the file is sufficiently large. If the file is 





by Alfred J. Monroe 





Alfred J. Monroe, 3769 Grandview Blvd., 
Los Angeles, California 90066. 


created, it will be checked for possible 
disk overflow. If overflow would occur, 
the command aborts. 


CLR-SCR SCR#1SCR#2.. 


Clears a block of screens from SCR #1 to 
SCR #2. 


CRF DR#¥1... 


Creates a named file on drive DR#1. 
Prompts for file name, screen start, screen 
stop, file type. Will create a directory en- 
try for all file types except a Forth data 
file (type 5). Forth source program files 
should be designated as type 4. Type 1 
files (object code) will request a hex load- 
and-go address. In keeping with the gener- 
al permissiveness of Forth, no check is 
made for the validity of the screen num- 
bers. Checks for existing file of same 
name and aborts if found. Existing file 
entry may be changed by ED command 
followed by CRF command. Does not 
check for potential disk overflow and 
assumption is that all screens of named 
file are contiguous on the same disk. 


CSCR SCR #1 SCR #2 SCR#3... 


Copies block of screens SCR#1 to 
SCR #2 inclusive to block of screens 
starting at SCR #3. 


CSEC SEC #1 SEC#2 DR#1 
SEC #3 DR#2... 


Copies block of sectors SEC #1 through 
SEC #2 on drive DR#1 to the block 
starting at sector SEC #3 on drive DR #2. 
Warning: No check is made to check the 
block start address SEC #3 for potential 
overlap with existing named files. 


DE DR#1.. 


Deletes the specified named directory 
entry on the specified drive DR#1. File 


{ create a file 1G 
1G 

C write ASCII characters 
: WRT 9@ 33 DG © fram 
see I + 


Screens. 
2 FILE YTSTY-FILE 

inta the file >» 
ASCII ! 
{ form Erste addrecs SaGi+] > 


name is prompted. Deletes the directory 
entry only. Does not access the disk file 
region in any way; consequently this 
command may be used to change the file 
parameters (see CRF command). 


#SCRNS DR #1 FILE 
FILE-NAME 


BYTE # DR#1 
FILE-NAME 


At definition time, FILE creates a named 
type 5 Forth data file in the directory of 
the specified drive. When FILE-NAME is 
executed, the stack will contain the RAM 
address of the specified byte on the stack. 
At definition time, a check is made for 
potential disk overflow. The command 
aborts on such an eventuality. Likewise, a 
pre-existing file of that name on the drive 
will abort the file definition, i.e., dupli- 
cate file names on the same drive are not 
permitted. Insufficient directory space 
also aborts the command. Caution: No 
check is made on the range of the speci- 
fied byte. The purpose of this word is to 
allow disk data files to be created and 
manipulated in Forth source programs. 
Files created using this word cannot be 
accessed by the LIST-FILE and LOAD- 
FILE commands. (An example using FILE 
is shown in Figure 1 on this page.) 


FILE 


LI DR#F1.. 

Lists the directory of the specified drive 
in North Star format, that is, file name, 
sector start, file length in sectors, file 
type, and load-and-go address if file is of 
type l. 


LIS DR#1.... 


Lists the directory of the specified drive 
in the format file name, screen start, 


lons om drive #2 


to.2-) 


2 { drive # > 


TS t-FIte 
I 4 
SWAP C! 
LOOF C 
FLUSH 


2 
- 


invoke file FAM addr > 
ASCII 
© store inta file > 

( keer scimd till Z 2 
€ be sure file daes 


Value ta stack, 2 


to the disk > 


€ read the ASCII characters out ta the terminal 2? 


> READ 96 33 DO 36G I + 2 


TSt-FiLe Ce: EMIT COOP. 5 


Figure 1. 
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screen stop, file type, and load-and-go 
address if file is type 1. 


LIST-FILE DR#1.... 


Used to list the contents of a Forth source 
program file. Prompts for the name of the 
file. Checks file type. File type must be 4. 


LOAD-FILE DR#1.... 


Used to load a named Forth source pro- 
gram file from the specified drive. File 
type must be 4. 


ND DR#¥1.... 


Provides a means of uniquely identifying 
each diskette as the first entry in the file 
directory. It reserves the first four sectors 
of the disk for the directory. This com- 
mand will overwrite any pre-existing first 
entry. Prompts for the disk name. 


Approach 


Several of the commands described 
above prompt the operator for additional 
parameters. Some are forgiving in the 
sense that they provide for error recovery 
in the event of a syntax error. In the 
event that the error is of the type that is 
not caught by the routine, e.g., input of a 
decimal number that is unintentional, 
simply enter a space and proceed to enter 
the correct sequence of digits after the 
error message. It is for this reason that 
(word) and (number) are not used in the 
routines. In addition, the error messages 
have been made a part of the definition 
to avoid the necessity of maintaining the 
master diskette in drive one, as would be 
the case if ‘‘message”’ had been used. 

The North Star DOS provides a num- 
ber of useful routines through a jump 
table at the beginning of DOS: 


DLOOK - searches directory 

for a file name. 
DWRIT writes directory 

back to disk. 
DLIST lists the directory. 
DCOM reads or writes to disk. 


In the initial approach to a file system 
development, maximum use was made of 
these routines. This approach was ulti- 
mately abandoned principally because it 
severely reduced the portability of the 
end result. The file system presented here 
is written entirely in high-level Forth 
with the exception of the READ/WRITE 
to the disk. This function is accomplished 
by means of code word linkage to DCOM. 
As a result, the current design should 
prove useful on systems other than the 
North Star disk system. 


Description of Disk 
and Directory Formats 

The North Star disk format consists 
of 35 tracks of 10 sectors per track fora 
total of 350 sectors per diskette. They are 
numbered from 0 to 349 inclusive. Each 
sector consists of 256 bytes. The first 


four sectors (= 1024 bytes = | screen) are 
reserved for the directory. There is a max- 
imum of 64 entries. Each entry consists 
of 16 bytes. Bytes 0-7 are the name made 
up of from one to eight of any printing 
ASCII characters and filled with trailing 
blanks for names less than eight charac- 
ters long. Note that this generalizes the 
name convention of North Star. Bytes 8-9 
(lo-hi) are the binary decimal value of the 
disk sector start address of the file. Bytes 
10-11 (lo-hi) are the binary decimal 
value of the length of the file in sectors. 
Byte 12 is the binary value of the file 
type. North Star has defined O as the de- 
fault type, 1 for executable object code, 
2 for BASIC source programs, and 3 for 
BASIC data files. 

This Forth file system further defines 
a Forth source program file as type 4, and 
a Forth data file as type 5. Bytes 13-15 
are type dependent. In particular, for a 
file of type 1, bytes 13-14 (lo-hi) are the 
hexadecimal RAM address of file-load 
and start-of-execution, and byte 15 is 
unused. 

The North Star disk and directory 
formats are adhered to in this Forth file 
system so that disk directories may be 
read and utilized in DOS and BASIC. 
Since Fig-Forth assumes 512 bytes per 
block, two blocks per screen, manipula- 
tion of a directory entry must observe the 
conversion factors that there are two sec- 
tors per block and four sectors per screen. 

Deletion of a directory entry is ac- 
complished by replacing the entry with 
sixteen blanks. The disk file is left un- 
touched; that is, it is recoverable in the 
event of accidental erasure of its direc- 
tory entry. Similarly, creation of an entry 
does not alter the disk elsewhere; hence 
increasing the length of a file or changing 
other file descriptive parameters may be 
accomplished by erasing its name from 
the directory and recreating the file name 
with the new file parameters. 


Directory entries for Forth source 
files are created by operator keyboard in- 
put of screen start and screen stop. It is 
assumed that such source files are a set of 
contiguous screens on the same disk. In 
keeping with the general permissiveness 
of Forth, no check is made that the 
screen numbers are valid. However, all 
screen numbers are converted to the 
proper sector numbers. 

On the other hand, creation of a 
Forth data file is inhibited if its length 
would cause a disk overflow, and the 
copy file command (CF) will also abort if 
it would lead to disk overflow. 

The fact that the directory is in 
terms of file sector start and file sector 
length is not very convenient for use in 
Forth. Therefore, two ways of listing the 
directory have been prepared, either in 
terms of sectors or in terms of screens. 

Finally, it should be noted that this 
file system was generated for a single- 


density disk system. Accordingly, some 
changes will be required in word defini- 
tions where higher, or mixed, density is 
involved. : 

The attached listing (page 42) com- 
piles to 3933 bytes. Somewhat less mem- 
ory is required if DCOM of screen 89 is 
not required. 


Notes on the Listing 


Since the listing is rather sparsely 
commented, the following is offered as 
an aid to understanding the file system. 
In screen 88 a few convenient, but not 
necessarily essential, constants and varia- 
bles have been defined. Their main excuse 
for existence is as a mnemonic aid for re- 
reading the listing six months from now. 

Screen 89 defines the only CODE 
word used in the file system. It links to 
the North Star DOS routine of the same 
name in order to perform disk READ/ 
WRITE operations. It is, of course, disk 
system peculiar. At the time that this 
system was developed, there was no docu- 
mented word of similar nature from 
Omniforth. Since then, Omniforth has 
circulated a newsletter on RWDSK, a pre- 
viously undocumented word in Omniforth 
which behaves in an identical fashion to 
DCOM. I have left DCOM in the listing in 
order to illustrate how such a linkage is 
effected, but am now using RWDSK on 
my own system. (Why waste memory?) 

The input utilities GET-NUM, GET- 
HEX, and GET-NAME are used to allow 
error recovery and operator command 
abort during command prompt input. 

The routine ?7ENTRY in screen 98 
prompts the operator for a file-starting 
screen, the last screen of the file, and the 
file type. If the file is type 1, the opera- 
tor is further prompted for a hexadecimal 
load-and-go address. 

The routine 7EMPTY in screen 99 
searches for an empty location in the 














FREE SOFTWARE for the 
KAYPRO 2 or VECTORS & 4 


Lots of games, CP/Mf¢ utilities and other programs are in 
public domain. 

Now you can order copies from 90 disks of well-known user 
group on 5 inch disks. 

Copy fee of $10 per disk includes postage. 

Either Kaypro 2 (46 tpi ssdd) format or Vector 3 & 4 (100 tpi 
dsdd) format. 

Other 5 inch formats ready soon. (Sorry, will not copy to 

fruits or stars.) 
















The 90 disk library includes these favorites: 
#21 startrek and other games, ‘requires MBASIC 

#23 STOIC stack ianguage, similiar to FORTH 

#28 simple ALGOL compiler with games 

#37 arithmetic CAI, games, requires CBASIC 

#41 HAM radio programs, requires MBASIC 

#50 PASCAL compiler written in PASCAL 

#55 or #57 original or extended adventure game 

#60 a 6502 simulator runs on Z80 

#66 HELP for novices on BASIC, CPM, PASCAL, etc. 
#79 or #84 SMODEM37 OR MODEM76S, requires MAC 
(No representations implied on any public domain software.) 


Send $10 (check or MO) for each disk, specify format. 
List of 90 disks for $2, or free with order of 3 disks. 


Sheepshead Software™ 
P.O. Box 486 
Boonville, CA 95415 





No COD. No Credit cards. No refunds 
+ CP/M trademark of Digital Research 


Circle no. 32 on reader service card. 
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directory. It expects to find the RAM 
address of the directory in the variable 
SAVE. If an empty location is found, the 
variable BUFR will contain the RAM 
start address of the empty location and 
a true flag will be on the stack. Failure 
to find an empty location will leave a 
false flag on the stack. 


The routine COMPARE in screen 100 
compares two strings for equality. It ex- 
pects ADDR1 ADDR2 LENGTH... on 
the stack. It leaves a false flag on the 
stack if the strings are not equal, a true 
flag if equal; now ADDRI1 points to the 
byte following the string associated with 
the original value of ADDR1; and ADDR2 
has been dropped. 


The routine FIND-FILE in screen 
101 uses COMPARE to locate the file 
name in IBUF within the directory. On 
success there is a true flag on the stack 
and the variable BUFR contains a pointer 
to the byte following the located name in 
the directory. On failure, there is a false 





bject to change without notice. 


information, call Mullen Com- 
ts at (415) 783-2866 or write 
Ox 6214, Hayward, CA 94544. 


flag on the stack. The name was placed in 
IBUF by GET-NAME. 


WRITE-DIREC in screen 101 expects 
the variable SAVE to contain the pointer 
to the start of the directory in RAM 
memory. SAVE was initialized by RD- 
DIREC as is the drive pointer variable 
DR. WRITE-DIREC writes the updated 
directory back to disk. DELETE-ENTRY 
expects the contents of BUFR to point to 
the entry to be deleted. The entry is de- 
leted by filling that location with 16 blanks 
and then writing the updated directory 
back to disk. DO-ENTRY first checks for 
an empty location in the directory, and if 
one is found, moves the contents of IBUF 
to the location pointed to by the contents 
of BUFR. The directory is then written 
back to disk. 


NXT-SEC# of screen 104 locates 
the next free sector address above the 
*“highest”’ file in the directory. Note that 
the diskettes are not “squished”? when a 
file is deleted from the directory. 


and programming examples 
as well as provocative in- 


sights on potential applica- 


tions. $219, assembled and 
tested. 


TMISIPH 


Circle no. 51 on reader service card. 





DISK-ALLOT is used by FILE to 
build a type 5 file entry and put it in the 
directory. 


SPACE of screen 105 is used to 
make sure that the file being created or 
written to a disk will not cause a disk 
overflow. 


It is hoped that these brief notes will 
help the reader to decipher those routines 
which have not been annotated on the 
screens. 


DB; 
(Listing begins on page 42) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 237 





These dealers also carry Mullen products: Jade Com- 
puter Products, 4901 Rosecrans, Hawthorne, CA 90250, 
(213) 973-7707; Priority One Electronics, 9161 Deering, 
Chatsworth, CA 91311, (213) 709-5111; and Advanced 
Computer Products, P.O. Box 17329, Irvine, CA 92713, 
800-854-8230. 
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-ANNOUNCING 
SS ee 


XyWrite // 


from 


WORD PROCESSOR || O 
FOR THE IBM PC XYQUEST 





We hereby make you an UNBELIEVABLE OFFER: 


For only $7.00 ($5.00 for the disk, and $2.00 for handling), we will send to you a DEMO DISK of 
XyWrite Il, THE ONLY WORD PROCESSOR to take advantage of the SPEED and POWER of the IBM PC. 


We believe in our program so we want to make it easy for you to try it. We want you to compare 
XyWrite Il against the rest. You will quickly see the lightning responsiveness of the program: 
it'll take your breath away. 


FASTEST PROGRAM ON THE MARKET 
SIMULTANEOUS MULTIPLE FILE ACCESS 
SPLIT SCREEN WRITING (HORIZONTAL OR VERTICAL) 
SPLIT SCREEN EDITING (MOVE TEXT BACK & FORTH) 
HORIZONTAL SCROLLING 
EDIT OR WRITE WHILE PRINTING 
INTEGRAL MATH PACKAGE 
COLUMNAR POSITIONING 
INDEXING, FOOTNOTES, HEADERS/FOOTERS 
and MUCH, MUCH MORE 
Find out what real speed power is on your IBM PC. Compare XyWrite II with WordStar, EasyWriter 1.1 and 


ll, Benchmark 3.0, PowerText, Volkswriter, FinalWord, Select, WordPlus, PerfectWriter - 
or any of the others. 


You have nothing to lose. The high quality diskette is yours to keep. When you decide to buy 
XyWrite Il, you receive a $7.00 discount off the $195.00 list price. 
Call or write us today at (617) 275-4439. Ask for John. 


WordStar is a registered trademark of MicroPro International. Benchmark is a registered 

trademark of Metasoft Corp. PowerText is a registered trademark of Beaman Porter, Inc. Volksw- XyQu est | Nc. 

riter is a registered trademark of Lifetree Software, Inc. FinalWord is a registered trademark 

of Mark of the Unicorn. Select is a registered trademark of Select Information Systems. WordPlus, P. O F B Ox 3 7 2 

is a registered trademark of Professional Software, Inc. PerfectWriter is a registered trade- 

mark of Perfect Software. EasyWriter is a registered trademark of Information Unlimited Software, B edfo rd 4 M A O 1 7 3 O 


Inc. IBM and IBM PC are registered trademarks of International Business Machines Corpo- 
ration. 
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Fig-Forth Directory & File System 


(Text begins on page 38) 
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S 


Of) oO Of & oi hoe 


sem, se, To ) mm 


i} 
my 
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ry 
WO ro -y oo & Whe @ Al 


> pee bt 
hye 


13 
i4 
15 


# S38 
\ COWSTANTS. VARIABLES. & COMUERSTION FACTORS 3» 


d& CONSTANT "G@" SF CONSTANT "9" 65 CONSTANT "AP 
7@ CONSTANT "FF" 9@ CONSTAHT "2" 2% CONSTANT CHTRL—C 
HEX 2070 CONSTANT BLEL DECIMAL  « A DRL BLANK > 


WAR TABLE BUFR G@ WARIABLE FLAG @& UARIABLE SAVE 
VARIABLE CNTR @ VARIABLE DR @ WARTABLE Dl 

WAR TABLE #560 G@ UARTAELE LAST-SEC & WARIABLE SECr 
WAR TABLE SEC 

SCRNZ5EC CERT “sese.) SECH 2 

SCRHeSEC SY -MOD DROP 4 « 3 

SEC2SCRN SEC#H DORH 1... SCEH > 

SECZSCENM I- SF + SWAP 4 -MOD SWAP DROP + 3; seen 


# 39 
© DCOM - LINKAGE TO DISK READ-WRITE ROUTINE OF NORTH STAR DOS > 


© DCOM — RAM-ADDR SEC-STRT #SEC Rell DRE .... > 
© RW=1 FOR READ. =@ FOR WRITE 


HE CODE DCOoM 

bh ed ok A ER a ok a | ok aos hs Saas 

Siete ob T MOW « DR TO C >) 

os aaa a | Ome nes ie . Reld FO EB o 

A POP STH: toe Ge ( MSEC TE AC > 
H POP #THL CHG {- DSK ADDR TO DE > 
H POP “TH xCHG « RAM ADDR TO DE. DSK ADDPRF Tc HL > 
eiee CHL Ee POF <6: CALE bCaM ems te IT: 5 
@H MII CS IF 1 tL MMVI ELSE @& & MUI EMDIF «¢ EPROP FLAG > 
H FUSH HESXT IMP DECIMAL 


voor ames “Ss 


be 

Rant Se Rights 

THERE ARE TWO DIRECTORY LISTING COMMAHDS. LI @ LI.S » 
LI LISTS THE GCIRECTOR'’ IN HORTH STAR FORMAT. THAT IS 2 
HAME. SECTOR START. FILE LENGTH IN SECTORS. FILE TYPE » 


a. 2. Ht 


wn, 


a, 


© & GO ADDRESS IF APPLICABLE, THE LI.S COMMEMD FEPLACES > 
© THE SECTOR THFORMATION WITH SCEEEM START & SCREEEH STOPF 9 


", 


Oe ts ft eS DR ... DRH ABCRTS ITF DR#H CUT OF PAHIGE 3 

DR-ERF CRE ." DEH ERROR " Ce ARCRT ; 

DR-TST DUP 1 < IF DR-ERR ELSE DUP = 
ENDIF EWDIF 5; 


IF DR-ERE 


° RO-DIREC @ BUFFER DUP DUP SAVE ' BUFR ' @41 De @ 
DCOM DISK-ERROR .' 5 


sieaseaee ep 


“ 


Sn 
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wn 
= 


WOID MH aWNY OD 


ah 

Ld 45d. S: CONT ENUGED” > 

TSCRN FLAG @ IF De @ SECSSCRH EMDIF 3 

LIST “DIRE: BUFR @ 1a BURR st DUR S- TYPE. 8 2: BUF @ One 
2 SHMCES 'YSCREN 3S .R 2. SPACES SWAP 2+ OUP @. RAT 

PLAS TP + PSCRENS 1 ELSE DORUR EMD: 3... 2 SeeCes 24 Dor Ce 
DUP) S oR Los TF 2 SPACES 1+ @..44. ELSE DROP ENDIF. = 

s DOUT BUFF ® @ BLEL = IF 16 BUFF +!' ELSE LIST-DIFEC CR ENWDIF 3s 

ed CR DR-TST DRO) FLUSH EAP TY<BOUPPERS PR DiREC wR, Ge 

BEGIN CNTR # 1 CNTR +! 6&4 <= WHILE DOLUT REPEAT 5: 


sz ose, tt 


19 < LI.S ~ DR#H... LISTS FNAME. SCRE STRT.SCRH# STOP. TVYPE.GA > 
14.0%. L239. .4°PRAG vod 


i3 “LI - DR# ... LISTS FNAME.SEC# STRT.FILE LEN. TYPE. GA? 
i4. 3? LI @ FLAG ' .LI : 
i5 —-> 


iy} 
) 


# 

© THE CO COMMAHD 2 

. CD DRHI DRHZ ... ? 

« COPIES ENTIRE DISKETTE ON DR#I TO DISKETTE OWN DRS 3° 


tab @ t= DUP. Ge TP Se th, ELC DRO Baia 


Fe 
a 
i 
S 
4 & NEST -SEC SSEC '@ DUP SECR +1 SECU +): Cel SEC Ser 
ra 
6 FEC om b= 5 

rs 

S 

9 


© DWRITE LIMIT SECW @ #5FEC @ @ Dl @ DCOM DISK-FRRCR ! of 
= DREAD LIMIT SECR @ #5EC @ 1 Dr & DCOM DISK-ERROR ! 5 


12 " ABORT COMMAMHD CH A OCHTREL-C 3 
13: ?REORT CHTRL-C = IF DROP QUIT ELSE DUP ENDIF 5; 


ie ee 


- # 9S 

G@ < THE CD COMMAHMO CONTINUED 23 

1 << THE WORD SET-#SEC FINDS THE. AVJAILABLE NUMBER OF SECTORS - 
2 << ABOVE LIMIT THAT CAN BE USED AS A DISK BUFFER. NORMALLY © 
3 THE TOP OF MEMORY IS & CONSTANT. BUT “HOT IN PMY SVSTEME | > 
4 : SET-#SEC LIMIT 

a PEGIH 2S + DUE DUFF @ SHAR | o& 

6 -1 = UNTIL 

ra Zoe ~-LIMTT <= .256 . DU s2 > 16: DROP Se FAOLe HSE Cl 
&.¢ THE WORD. DCOPY Ts COMMOH TC.CD AND CSEC 2 

9 : DCOPY BEGIN DREAD DWRITE HENT-SEC UMTIL 

18 CR," COPY COMPLETED ". CRs 

ii: CD  SUAP DE-TST DUP br .° 7" COPY FRE OSE... -bee-TST 

y Fs ir. gi a Be BR a ee 

i: ." HIT SPACE BAR TO COWTIWUE. AMY’ OTHER TO ABORT ” 

14 KEY 32 JF CR S35G@ LasT-SEC ' @ DUP SECR !' SEC ! 

15 SET-H#HSEC DIOPY ELSE ." CMMD ABCRTED " Cr EMPIF s&s —--—-> 


(Listing continued on next page) 
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(Listing continued, text begins on page 38) 


44 


SCR 


WO Oo & Wh & 


] 
5 


a 
c2 


# S94 
< THE CSEC COMMAND > 
< CSEC SEC#H1 SECH2 DRH1 SECHS DRE? ... ; 
{ COPIES SECH1 THRU SECH? FROM DRIVE DRHI To ORES > 
< STARTING AT SECHS. > 
: CSEC DR-TST DW ! SECM ! DR-TST DR ! 1+ 
LAST-SEC: | SECR ! SET-#5EC LAST-SEC @ SECE a 
- DUP #S5EC @ < IF #5EC ! ELSE DROP ENDIF pcoPy ; 
< THE FOLLOWING SEVERAL SCREEHS DEVELOP A SET OF UTILITIES. > 
< THE WORD BUFF IS USED TO CREATE TEMPORARY HOLDIMG BLIFFERS > 
< FOR COMMAND PARAMETER INPUT. > 
{ BUFF - Ni BUFF NAME ALLOTS Hi RYTES TO HAME > 
¢ BUFF <BUILDS ALLCT DOES> : 
16 BUFF IBUF 16 RUFF TRUF -- 
# 95 
< GET-NUM LEAVES DECIMAL # ON TOP OF STACK > 
2 SVH-ERR CR ." SYNTAM ERROR " DROP DROP @ "a" CR 3 
= GET-HUM @ FLAG ' ¢ QUIT WHEN FLAG = 1 3 
@ BEGIN ¢ PUT INITIAL # = @ ON TOP oF STACK > 
KEY DUP DUP EMIT ?ABRORT < GET CHR @ ECH®! IT > 
13 = IF 1 FLAG ! DROP << QUIT ON ACR D> 
ELSE DUP "@" < IF < CHR < @ 7D 
SVM-ERR 
ELSE DUP "9" > IF ¢ CHR > 9 73> 
SVH-ERR ENDIF EMDIF EMDIF 
& NQW CNUT ASCII To DECIMAL & ADD TO THE STACK > 
FLAG #@ G= IF 4& - SWAP 1G + + ENDIF 
FLAG @ UNTIL = ¢ KEEF GOTHG TILL CR > 
——> 
96 
« GET-HEM LEAVE A HES # ON TOP OF STACK > 
© GET-HEM @ FLAG ! @ BEGIN KEY DUP DUP EMIT ?ARORT 
I> = IF 1 FLAG § Deore 
ELSE DUP "@" < IF SVH-ERR 
ELSE DUP "9" > IF DUP "A" < IF S¥H-ERR 
ELSE DUP "F" > IF SVH-ERR ENDIF 
ENDIF ENDIF ENDIF EMDIF 
FLAG @ @= IF 42 - DUP 3 > IF 7 - ENDIF SWF ig + + EMOTE 
FLAG # UNTIL : 
——> 


(Listing continued on page 46) 
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Don’t underestimate the power of an original DDJ T-Shirt! Thousands of 
loyal DDJ readers requested them and after much anticipation they are 
finally available. These handsome royal blue T-Shirts are made of a fine 
COMPU TERE ia polyester/ cotton blend. The cost of your priceless DDJ T-Shirt is ony $6.50. 
Use the attached coupon to order your T-Shirt today. Supply is limited, so 
don’t delay. Sign up as a Donating Subscriber (see masthead) and receive a 
T-SHIRT FREE! 


a 2 2 a A a a a a OO Oa Oa OE a a OE Oa a Ca“ Oe OO ee Oe Oe ee Oe ae a a a a ee ee a ee a ae a ae a 4 


ORDER FORM 


Make check or money order payable to: 


Dr. Dobb’s Journal 
P.O. Box E 
Menlo Park, CA 94025 


alisthenics rthodontia 


a Overb 
































Indicate Quantty® «2258 | a eet 2 A ___ Check enclosed 
Total Quantity x $6.50 = Charge my: AmEx____ Visa ___. Master Card-____ 
(Sales tax is already included) Account No. 
Add Shipping & Handling Li 1:25 Exp. date Signature 
Add $.25 for shipping Name 
for each additional T - Shirt = Se rn A Address 
City/State Zip 


Total Amount 


Phone T2 
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Fig-Forth Directory & File System 


(Listing continued, text begins on page 38) 


SCk # 97 
@ «< GET-HAME > 
1 $s INIT-IBUF IBUF DUP BUFR ' & CHTR ' @ FLAG ' IBUF 16 BLAMES = 
2: NM-ERR CR ." SVHTAX ERROR " CR ." REENMTER FHAME " 
B DROP DROP INIT-IBUF 5; 
4 : GET-NAME INIT~IBUF .” FNAME? ” 
3 BEGIN KEY DUP DUP EMIT VABCRT 
6 IS = IF 1 FLAG ' DROP 
Y ELSE DUP 33 IF HM-ERR 
g ELSE DUP "2" > IF NM-ERPF 
3 ELSE BLUFF @ f BUFR 
1a +! C!' -1 CNTR +! 
11 EMDIF 
12 ENDIF 
io EMDIF CNTF @& G= IF 1 FLAG ' ENDIF 
14 FLAG ® UNTIL DREOF CRs 
is --> 


SCR # 98 
@ ¢ 7ENTRY AND CLR-SCR > 
i 
2: YENTRY ." SCR STRT? " 


GET—-HUPM CR DUP SCREH2SEC 





CompuPro System users: 


8087 SUPPORT 


for Microsoft 


BASIC-80 and FORTRAN-80! 


Impatient with 8-bit software? Don’t despair! Now you can put 
Intel’s amazing 8087 Numeric Data Processor to work on the 
same jobs, simply by re-linking with BAS87LIB or F87LIB, Avant- 
Code’s unique Link-80 compatible runtime libraries for the 8087. 


ADVANTAGES OF BASIC-87 and FORTRAN-87 
® Dramatically faster execution speed 
®@ More accurate and reliable than Microsoft 8080 routines 
@ No software conversion required—just re-linking! 
® Replaces all 53 intrinsic and external library functions 
® Easiest and cheapest way to add 8087 power to your system! 


Typical double precision (64-bit) benchmarks: 


Operation 
(5000 iterations) 
multiplication 
division 

sine or cosine 
logarithm 
square root 500 


1 iterative loop on CompuPro/Hudson CP/M system (8085 @ 6MHz and 8088/87 @ 5MHz). 
2 FORTH with 8087 64-bit floating point on IBM P.C., Dr. Dobb’s J., Nov. 1982, p. 46. 


FORTRAN-80! FORTRAN-87! 


Prices: * 
® BASIC-87 (requires Microsoft BASIC-80 compiler) $200.00 
® FORTRAN-87 (requires Microsoft FORTRAN-80) $200.00 


®@ Hudson & Associates 8087 Support Board for CPU 8085/88 
(Assembled & tested with 5MHz 8087-3) $495.00 


AVANT-CODE 


*Target system must include CompuPro CPU 8085/88 and System Support 1. Disk 1 plus 4K of extended 
addressing RAM may be substituted for System Support 1. User installation of the Hudson & Associates 
8087 Support Board will not void CompuPro warranty on CPU 8085/88. California residents add sales tax. 
BASIC-87, BAS87LIB, FORTRAN-87 and F87LIB are trademarks of Avant-Code. 8087 Support Board is a trademark of 
Hudson and Associates. CPU 8085/88, System Support 1, and Disk 1 are trademarks, and CompuPro is a registered trade- 
mark, of W. J. Godbout Electronics. CP/M is a registered trademark of Digital Research. Basic-80 and Fortran-80 are trade- 
marks of Microsoft. 


1508A Oxford Street 
Berkeley CA 94709 
(415) 549-3257 





BDOS ERROR 
ECTOR 


ON B:BAD S 





Before disk errors ruin your work again order BADLIM. 


# BADLIM assures the reliability of your CP/M 
computer. 

e You can use your disks 10 times longer without 
losing your data AND your time. 

® BADLIM checks thoroughly your disk marking all 
the blocks which have defective sectors. The 
operating system will know that those sectors 
should be skipped. 

# BADLIM is the only program that gives protection 
for soft and hard errors. 

® The first time BADLIM will list which files in your 
disk are on bad sectors, so you can take action to 
correct it. 

e But thereafter the bad areas in your disk will be 
‘automatically by-passed. 

# For CP/M 1.4 single density and for CP/M 2.xx of 


any format and density. It is a must for Winchester 
as the media cannot be replaced. 
BADLIM cost only $73. Whatever the reason you have 
to use a computer you need BADLIM. Contact your 
dealer or call us today: 
BLAT R&D Corp., 8016 188th. St SW, Edmonds 
WA 98020. Phone:[206] 771-1408 
DEALER INQUIRIES INVITED. BADLIM 
Circle no. 97 on reader service card. 





Circle no. 98 on reader service card. 
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> TBUP. So DUP: Zire te! 

4 ae LT SOR? 9 rer Pe SS eT a 

3 Sight ee Ae UP ee 

6 er Oe eee ees ee * Cre Se DU Se se 


" . WRONG FILE VRE. CE Aen ELSE Buri tot T 
3 Be +t ENOL 

9 poe TE... HES GO ADDR? —" SET HES OR -BUPR @  SNDIF: & 
1G 

i . CLR-SCr SCRH1 SCRHS .... CLEARS SCRH#I THR SCRHE > 
i: €LR-SCR 1+ SWUAR DOT EDITOR (CLEAR -FORTH LOOP: > 

14 

bt, ee 


SCR # 39 
<« PEMPTY > 
: PEMPTY @ DUP CNTF ' FLAG ' SAVJE 2 BUFF ! 
BEGIN 1 CNTR +' BUFF @ 16 BUFF +! 
@ BLS = IF U-te SUPE +tad FLAG! 
FLSE CHTR @ 6&3 = IF 
1 FLAG ' ENDIF ENDIF 
FLAG ® UNTIL. 
CNIR @ 65. <= TF & ELSE 1 EMDIF. s 


DOONnusawr 


as 


166 
. COMPARE > 
COMPARE i FLAG? 
@ DG DUP Ce ROT DUF Ce ROT 

= IF 1+ SWAP i+ ELSE @ FLAG ' ENDIF LOOP 

SWAF DROP FLAG & DUP G= IF SWAP DROF ENDIF - —--> 
Y COMPARE TWC STRINGS ADDR ADDR2 CHT OW STACK. 

LEAVE & CH STACK IF HOT EQUAL. 1 IF EQUAL & ADDR1 PHTS 

To CELL FOLLOWING WANE > 


Ww 

3 

& Al 
ss, ie 


MO Oy ch of & C1 ho 


jou 


——> 


iy} 


Sere Oe 


11 

FIND-FILE WRITE-DIFREC DELETE-ENTRY DO-ENMTRY > 

FIND-FILE @ CHTE !' SAVE @ BUFR ! @ FLAG ! 

BEGIN 1 CNTF +! IBUF BUFR @ 16 BUFR +' & 

COMPARE 
IF DROP -is BUFR +! 1 FLAG !' ENDIF 
CNTF @ 65 = IF 1 FLAG ! ENDIF 

FLAG @ UNTIL 

CHTR @# 65 = IF @ ELSE 1 EWDIF = 


a bs af 


: WRITE-DIFEC SAVE 8 @ 4 @ DRE @ DOOM DISK-ERROR ¢ ¢ 
11 2 DELETE-ENTRY BUFR #@ 16 BLANKS WRITE-DIFEC 5 


13: DO-ENTRY EMPTY IF IBUF BUFR @ 16 CMQWE WRITE-DIREC 
id ELSE CR ." DIRECTORY 15 FULL. " CR QUIT 


+3 ENDIF = Sac, 
(Listing continued on page 50) 
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YOUR IBM 
PERSONAL COMPUTER 
IS ABOUT TO 
BECOME MORE 
POWERFUL THAN 
YOU EVER 
DREAMED POSSIBLE. 


SAN FRANCISCO BOSTON 

















Friday-Sunday, June 17-19, 1983 Saturday-Monday, October 8-10, 1983 
Brooks Hall/Civic Center (Columbus Day Weekend) 
10:30 AM to 5:30 PM Daily Bayside Exposition Center 


10:30 AM to 5:30 PM Daily 


Produced by Northeast Expositions Inc. , the people who brought you Applefest, CP/M ’83 and the National Computer Shows. 
826 Boylston Street, Chestnut |Hill, Massachusetts 02167, 617-739-2000 or 800-841-7000. 
For information on exhibiting at PC ’83, please call 800-343-2222. 
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ANNOUNGING PG ’ 
THE INTERNATI NAL 


CONFERENCE AND 
EXPOSITION FOR PC USERS 





In the last few months, thousands of exciting new products 
have become available to make your IBM Personal Computer 
work in hundreds of innovative, landmark applications. By 
adding the right software, plug-in cards, peripherals and acces- 
sories, you can make your PC more productive and useful than 
you ever dreamed possible. 

And now there's finally a way to learn about and try out all of 
these products: PC ‘83, the first international event exclusively 
for PC users. 


THE LARGEST EVER 


The exposition portion of PC ’83 is the largest gathering of 
PC-compatible products ever held. You'll find, under one roof, 
more than 400 exhibits of software for business, professional, 
home, personal and education applications; plug-in cards for 
memory expansion, telecommunications, speech and many 
other functions; hundreds of peripherals, including printers, 
networking systems and innovative new storage devices; plus 
dozens of publications, books and invaluable support services. 

PC ’83 brings together the entire PC world. 


RELIABLE AND COST-EFFECTIVE 


Think about the different vehicles available for buying soft- 
ware and add-ons for your PC. You can shop at local computer 
Stores, but they usually have a very limited selection of prod- 
ucts and a less-than-expert staff. You can buy through mail 
order—and take some big risks if you get products that don't 
work or don't do what you expected. 

At PC ’83 you have the best of all worlds. You can see a// the 
different PC-compatible products in one location at one time. 
You can talk with factory experts rather than just local sales- 
people. You can ‘test drive’ each product and decide if it’s right 
for you. And when you find what you're looking for, you can 
buy it right on the spot. 

Best of all, you'll save hundreds—even thousands—of dol- 
lars at PC ’83. Most of the products shown at PC ’83 are sold 
at special show prices, so you won't have to look hard to find 
incredible values. And because PC '83 will help you make more 
informed purchase decisions, you ll end up with products that 
are better suited to your applications. 


A REMARKABLE CONFERENCE PROGRAM 


The conference program at PC ’83 isn’t just a warmed-over, 
pared-down version of other computer conferences. The semi- 
nars, workshops and forums at PC ’83 are the result of months 
of research and planning targeted toward one specific goal: 
helping you get absolutely the most out of your IBM Personal 
Computer. 

The program features world-renowned PC authorities — 
Speaking at over 100 educational sessions. Seminars provide 
an in-depth, understandable look at a broad range of PC uses 
in business, home and education. Seminars emphasize 
‘how to,’ telling you specifically what you need to know—in 
non-technical language—to use the PC in dozens of different 
applications. one 

Forums present an inside look at what’s happening in the 
PC-compatible industry and what new developments you can 
expect in the next few years. . 

Software and Hardware Spotlights are a PC ’83 exclusive. 
These workshops address one of the biggest problems that 


IBM is a registered trademark of International Business Machines Corp. 









virtually all computer users face: how to decide which software 
and hardware packages are best for your applications. Each 
Spotlight provides a detailed discussion and demonstration 
(with large-screen television) of a group of products, covering 
their features, capabilities and limitations. Experts are on hand 
at each of these sessions to answer all your questions. 


EASY ON YOUR FEET 


We've thought of a lot of details to make your visit to PC 83 
just a little more pleasant. As with all of our events, the show is 
fully carpeted, so your feet won't give out before you've seen all 
the exhibits. 

Our unique Conference and Exhibits Guide helps you quickly 
find the exhibits and educational sessions you want to attend— 
even if you can’t remember their names. And the Guide is pro- 
vided free of charge to all attendees. 

If you're traveling some distance to attend PC '83, we'll 
arrange a discounted hotel room near the show site through the 
PC ’83 Housing Bureau. On request, we will also provide infor- 
mation on things to do, places to visit and where to eat in San 
Francisco and Boston—to make your stay in these grand cities 
a memorable and relaxing one. 


A TOTAL SUPPORT SERVICE 


Let’s face it, getting support for your PC is tough. The PC 
magazines, newsletters, user groups and retailers are certainly 
helpful. But there are so many different products, services and 
things to learn about for your PC, what you really need is one 
event that brings everything together in one place in a well- 
organized format. 

PC ’83 does it all. It showcases all the PC-compatibles under 
one roof. It has a complete and comprehensive program of 
Seminars, forums and product workshops. And it’s produced 
with the quality and professionalism you ve come to expect 
from Northeast Expositions. 

So if you do anything with the IBM Personal Computer or if 
you’ re considering buying one, be sure to put PC ‘83 in your 
calendar right away. 

Your PC will certainly appreciate it. 


DAILY REGISTRATION FEES 


Exhibits-only badges are $8 per day, and the Conference 
Program is $15 per day. 


SPECIAL PRE-REGISTRATION DISCOUNT 


lf you plan to attend PC ’83 save now with advance registra- 
tion. Three-day Exhibits and Conference badges are $48, you 
save $21. Three-day Exhibits only badges are $18, you save $6. 
One-day Exhibits and Conference badges are $23 and one-day 
Exhibits only badges are $8. : 


ADDITIONAL INFORMATION 


To receive additionat information about attending or exhibit- 
ing at PC 83, including the Conference, Seminar, Workshop 
and Panel Discussions Program, or information on local hotels 
call 617-739-2000 or 800-841-7000 (Boston). 


ANY ap CALL 800-841-7000 
(BOSTON 


Produced by Northeast Expositions, nationwide producers of the 
National Computer Shows, Applefest and CP/M 83, 826 Boylston 
Street, Chestnut Hill, Massachusetts 02167. 
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Fig-Forth Directory & File System 


(Listing continued, text begins on page 38) 
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AT LAST]! 

A PROFESSIONAL JOURNAL FOR ENGINEERS 
SCIENTISTS MATHEMATICIANS & STATISTICIANS USING 
MICROCOMPUTERS. 

PLUG INTO... 

ACCESS! 
The Journal of Microcomputer Applications 
for 
* numerical analysis 
* math modeling 
* statistical analysis 


* computerized design 
* process simulation 
* report generation 


The articles in ACCESS are written by workin 
engineers and scientists who share their knowledge o 
how to make productive use of microcomputers with 
you. Your subscription to ACCESS will make your 
microcomputer more useful in all areas where 
engineers and scientists use microcomputers. And youll 
even find ways to use your computer you hadn't 
thought of. The articles in ACCESS are written with 
you in mind and are aimed at helping you turn your 
microcomputer into the most productive tool possible. 
Sign up W be a charter subscriber. Join the other 
engineers and scientists who make ACCESS their 
source of information on microcomputer applications. 
Charter rates are 6 issues for $16. (Canada & Mexico 
$20. Other $32) Fill out the coupon below TODAY. 
Send check, money order, purchase order, or use your 
VISA or MASTER CARD. 


ign me 
ompany 
Exp 


16 losed () Bill Bill 
‘Charge VISA MC ™ 9 


() Send sample issue heres $3 
Name & address 


City State and ZP 


Mail to ACCESS PO Box 12847 Research Triangle Park, 
NC 27709 Published by LEDS Publishing Co., Inc. 
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Floating 
Point 


‘FPP’ (Floating point) software for use on 
any CP/M® computer system provides 
12 digit accuracy. 


e 12 digit significand stored as packed BCD 

e BCD arithmetic assures accuracy 

® guard digit on all operations 

© exponent from -126 to+127 

¢ written in assembly language — very fast. 

© available in object or source form 

® companion function package contains natural 
logs, common logs, sar root, exponentiation, 
sine, cosine, tangent and their inverse func- 
tions, etc. All functions computable to 12 digits 
accuracy using very latest algorithums; very 
fast. 

° compatible with our RAID debug system 


For more information on ‘FPP’ write or call: 


Southern Computer Systems, Inc. 
2304 12th Avenue North 
Birmingham, Alabama 35234 
(205) 933-1659 





CP/M® is a registered trade mark of Digital Research 
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(Listing continued on next page) 
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Fig-Forth Directory & File System 


(Listing continued, text begins on page 38) 
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CAN YUU Co? 


ADD THESE To YoUR LIBRARY ... 


C- -PAC A disk full of useful utili- 
ties, for CP/M with C source 

code. Includes a sector patcher, query coe 

program, disk backup program, etc, etc. 


MEDIT 4 sorted mailin list editor 
with C source which can be used 
with Scribble to produce form letters. $39. 


VIEW A fancy CRT disk editor for CP/M, 
with C source. Inspect an block, 
modify any sector. More stats than STAT! $39. 


ICX Deluxe CP/M <-> ISIS package. Trans- 
fers files conten & initialize ISIS 
disks. Includes ISIS emulator for debugging 
under CP/M. Complete source (C & Asm). 8 9. 
Supplied on Single Density 8” Disk 
CP/M: Digital Research, Inc. ISIS-Il; Intel Corp. 









Western Wares 


Box C Norwoop, CO 81423 
303 327-4898 
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CAN YOU DO WITHOUT... ???... 


DISK MANAGER” 
$29.95 


DISK MANAGER™ is a utility program consisting of various 
functions needed for effectively using disks under CP/M* , 
especially by the Hard Disk User. 


DISK MANAGER™ can run on any CP/M*_ system with any 
type of disks. 


DISK MANAGER™ requires no installation. 


These functions are included in DISK MANAGER™: 
e Restore a deleted file. 
Establish multi-user links to a file. 


® 
e@ Change user number for a file. 
@ 


Map out bad blocks. 
No more BDOS ERROR Bad Sector messages. 


e Display the complete directory for the disk or a file. 


DISK MANAGER™ is very easy to use. It is menu driven. 
It prompts for all parameters required by it to perform the 
selected function. 


Now available for CP/M* 2.2 


Contact Your Dealer or: 


TRANTOR 


TRANTOR SYSTEMS, LTD. 
4432 Enterprise Street, Unit I 
Fremont, California 94538 
(415) 490-3441 

Telex: 17-1618 Attn: TNT 


# CP/M is a registered trademark of Digital Research 
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Get HYPER about FORTH! 


HyperFORTH™ for the 68000 is here now! 






If you like FORTH, then you'll like it even more now. 
If you have never tried FORTH because it seemed too primitive, then this system is for you! 






Now you can develop programs in FORTH with the ease that you are accustomed to with more sophisticated operating systems. 
HyperFORTH™ is the result of years of professional FORTH development work started at a major U.S. Telescope Observatory. 







HyperFORTH™ comes in two flavors — 







HyperFORTH™ |, which is a conventional screen oriented FORTH system, but with many powerful system extensions, and 





HyperFORTH+™ , which is a revolutionary new development in FORTH systems, featuring dynamic file management, a full 
screen wordprocessor — like text editor, and all the great features of HyperFORTH™ . With HyperFORTH+™ your 
Productivity is improved by several orders of magnitude. 







@ Fully Multitasking © no limits on the number of concurrent tasks 

@ Full Feature 68000 Assembler ¢ supports all opcodes and addressing modes 

@ Standard BIOS I/O interfacing e so that it can be used on nearly any system 

@ Relocatable Code Files ¢ so your application can be compiled and run anywhere 

@ Fastest FORTH available on any machine! e Executes the Sieve Benchmark in 1.8 sec/pass 
(SAGE™ || Computer — 8MHz 68000, no wait states) 

@ Complete set of utilities 

@ Target Assemblers available for 6809, 6502, Z80, 8088/8086, PDP-11, NOVA, and 1802 

@ Metaforth included with HyperFORTH+™ for the production of ROMmable application code 

@ Extensive Technical Manuals, including source code listings! 

@ Many other advanced features 

@ SAGE ™ version available off the shelf e other versions available on request 

@ Prices begin at just $400 for HyperFORTH™ 














If you need a 68000 to run it on, we can also supply a SAGE™ computer. 






For more information or to order a system, give us a call today! 







SAGE is a trademark of OR THright 
SAGE Computer Technology = e 
ngineering, Inc. 


Advanced Automation Systems 
7901 East Boojum Street © Tucson, Arizona 85730 © (602) 298-2456 
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Fig-Forth Di recto ry & File System (Listing continued, text begins on page 38) 
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fig- FORTH79 


A79 Standard FORTH with Double-Number Standard 
Extensions — for any 6502 based computer running 
Micro Technology Unlimited’s Channel Oriented Disk 
Operating System. 


In addition to the inherent capability of the FORTH 
System as a total programming environment, fig- 
FORTH79 unleashes all the powers of CODOS. 


Includes a powerful editor, assembler, utilities and 
demonstration programs — over 100 screens in all. 
Supplied on 8-inch SS/SD soft sectored disk along 
with comprehensive user’s manual. 


$145.00 


Also available... 


fig-FORTH79 assembler source listing with higher 
level source for the editor, assembler, utilities and 
demonstration programs. Provides a relatively pain- 
free way to implement a 79-Standard System for 
those who already have, or can write, a disk interface 
suitable for their particular computer. 


$35.00 


From: Mark I Manning 
7611 Autumnal Lane 
Liverpool, NY 13088 

(315) 457-4175 
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End Listing 


INTRODUCING 


One of the finest implementations of the FORTH language. 
Field tested and reliable, UNIFORTH is available for 2-80 
and most 16-bit systems using 8”’ disk drives. 


As a task, UNIFORTH is compatible with and supports all 
features and file types of the CP/M, CDOS, MS-DOS and DEC 
operating systems. As an operating system, UNIFORTH will 
function “‘stand-alone’’ on most commercial microcomputers. 


The FORTH-79 Standard language has been extended with 
over 500 new words that provide full-screen and line-oriented 
editors, array and string handling, enhanced disk and terminal 
1/O, and an excellent assembler. Detailed reference manuals 
supply complete documentation for programming and system 
operation, in an easy-to-understand, conversational style using 
numerous examples. 


Optional features include an excellent floating-point package 
with all transcendental functions (logs, tangents, etc.), the 
MetaFORTH cross-compiler, printer plotting and CP/M file 
transfer utilities, astronomical and amateur radio applica- 
tions, etc. 


Compare these features with any other FORTH onthe market: 


@ Speed and efficiency 

@ Variety of options 

@ Ease of use 

@ Quality of documentation 


You'll find UNIFORTH is superior. 


Prices start at $35. Call or write for our free brochure, 


Unified Software Systems 
P.O. Box 2644, New Carrollton, MD 20784, (301) 552-1295 
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orth enthusiasts frequently cite 

modularity and expandability as the 

language’s greatest strengths. The 
truth of these claims can be shown with 
an example: Design of all necessary soft- 
ware to interface a Votrax Type’N Talk 
speech synthesizer to a system. 


BASIC and other “conventional’’ 
languages make such software interfaces 
difficult to design and inconvenient to 
use. In general, all or most of the inter- 
face routine must be written in machine 
language; portability between systems, 
even within the same’processor family, is 
rare. The routine must be explicitly 
included in every program requiring use 
of the peripheral, by either keying in a 
subroutine or loading a utility module 
from mass storage. Commands within the 
BASIC program (let alone the machine 
code routines) are generally not self- 
documenting, with obscure references like 
K=USR(7) or X=INP(231) AND &127 
perhaps meaning to initialize the proper 
port or check an input bit. 

With Forth, though, the entire soft- 
ware interface can be programmed in 
portable high-level code, with virtually 
no penalty to execution speed and mem- 
ory requirements. The resulting interface 
is hardly an inelegant “patch job,” as in 
BASIC; after development, the interface 
becomes part of the language, usable in 
exactly the same manner as any other 
Forth ‘‘words.” It is even possible to 
make the interface software part of the 
core language, so that it will be available 
immediately upon a cold start without an 
additional loading operation. Perhaps best 
of all, interactive development and testing 
make the software design process incred- 
ibly fast and efficient — in this instance, 
the Votrax software was developed from 
first idea to final test in under 20 minutes, 
and still uses less than 100H bytes of 
memory. 

The basic function of such an inter- 
face routine is to move data from memory 
to the peripheral, in accordance with the 
data conventions of both the language 
and the device. The Votrax Type’N Talk 
is designed to receive ASCII data via an 
RS-232C port, using any of eight baud 
rates. At low data speeds, and with short 
and relatively infrequent output strings, 


by C. Kevin McCabe 


C. Kevin McCabe, 115 South LaSalle, 
Suite 1200, Chicago, IL 60603. 








the physical interface does not need 
handshaking lines. Longer, faster, or more 
frequent output, though, will overflow 
the Votrax’s limited buffer unless hand- 
shaking is implemented using the Type’N 
Talk’s Clear To Send line. In this instance, 
Clear To Send is simply brought into a 
single control port bit on a Vector Graph- 
ics serial I/O board; other systems may 
use different handshaking schemes appro- 
priate to the hardware. 


The interface routine in Listing 1 
uses the Forth Interest Group’s Forth 
(Fig-Forth) for the 8080, release 1.1. 
With minor changes at most, the software 
should be portable to other Fig-Forth 
installations regardless of processor types. 
Only CLEARTHROAT and two or three 
integer constants in SAYCHARACTER 
are system-dependent. In this case, 
CLEARTHROAT is defined to output the 
six data bytes shown in line 4 of screen 
500 to serial control port 07H. These 
bytes initialize serial ports 06H and 07H 
of the I/O board for the appropriate word 
size and baud rate. If the system uses seri- 
al ports which are integral to the system 
or initialized upon cold start, CLEAR- 
THROAT or its equivalent may not be 
necessary. In any event, CLEARTHROAT 
is only executed once, during the loading 
operation. 


The core Fig-Forth language, available 
after a cold start, contains over a dozen 
words for terminal output. Like most 
of the language, the ‘“‘building block”’ 
approach has been used extensively in 
these word definitions. In most instances, 
only EMIT (which takes an ASCII char- 
acter byte from the stack and sends it 
to the terminal) is defined as a machine- 
language “primitive;” all other terminal 
output builds upon EMIT to output 
strings and numerics. 

The same scheme can be used for 
output to the Votrax. As defined in lines 
11-14 of screen 500, SAYCHARACTER 
treats the value currently on top of the 
stack as an ASCII character byte, and 
outputs it to the Votrax (and optionally 
to the terminal as well) with full hand- 
shaking. No machine code is required, as 
the core Fig-Forth language already 
provides all necessary operations in high 
level. 

SAYCHARACTER executes by first 
entering an indefinite BEGIN. ..UNTIL 
loop to read input from port 07H, repeat- 
ing until a Clear To Send signal is received. 
For the hardware used here, bit 0 on port 
07H is the handshaking signal; a zero on 





Forth Votrax Driver’’ 


that bit signals that the Votrax’s input 
buffer is full. The loop will terminate 
whenever bit 0 goes to a 1. Line 13 dupli- 
cates the top stack value for later use, 
then outputs the copy to the Votrax via 
serial port 06H. 

For convenience, one additional fea- 
ture is added to the definition of SAY- 
CHARACTER. At times, it may be neces- 
sary to send output to both the Votrax 
and the terminal. The most efficient 
means is to include a software switch in 
the lowest-level output definition; in that 
way, all later words defined with this 
“building block” will use the same 
method to direct output, at no additional 
software cost. Here, SAYCHARACTER 
fetches the value of the variable VOICE+ 
PRINT for use as a logical flag. A non- 
zero value (a true flag) sends the remaining 
copy of the character byte to the termi- 
nal, using EMIT for output. If the flag 
value is zero (false), the remaining copy is 
simply dropped from the stack. 

Screens 501 and 502 contain the re- 
maining high-level words to incorporate 
ASCII string audio output capabilities 
to the Forth system; all are system- 
independent, as they are defined using 
SAYCHARACTER. For ease of use, the 
words are defined similarly to the Fig- 
Forth core words for terminal output, 
with the same stack values and formats. 


SPEAK, like TYPE for terminal 
output of strings, requires two operands 
from the top of the stack. The top value 
n is the character count of the string 
whose first data byte is at address addr. 
Any non-zero count will fetch n ASCII 
characters one-by-one from memory to 
the stack, and then send each to the 
Votrax. If the count byte is zero, SPEAK 
simply removes the address operand with- 
out output of any characters. Since out- 
put of individual characters uses SAY- 
CHARACTER, each may also be directed 
to the terminal by first storing a true flag 
value in the VOICE+PRINT variable. 
Note that any character string in memory 
can be output using SPEAK, so long as 
the initial data byte address and character 
count are first placed on the stack. 

SAY” and (SAY’’) operate in tandem 
during various phases of operation, in the 
same manner as the terminal output word 
”? and its (.’) run-time procedure. 
Character strings delimited by a trailing 
“quote” character (22H = 34 decimal) are 
input from the terminal, separated from 
SAY”? by one or more blanks. Further 
execution of SAY” depends upon Forth’s 
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current operating state; a zero value for 
the user variable STATE indicates that 
Forth is executing rather than compiling. 

In the execution state, lines 10-12 of 
screen 502 move the input string from 
the terminal buffer to the top of the dic- 
tionary, with a leading one-byte character 
count. The current dictionary pointer is 
placed on the stack, then used by COUNT 
to increment the pointer and fetch the 
contents of the count byte. These two 
values are the operands for SPEAK, 
which output the string to the Votrax. 
Again, VOICE+PRINT can be used to 
direct output to the terminal as well. 

When SAY” is encountered as a com- 
ponent word during compilation of colon 
definition — that is, in Forth’s compilation 
state — the action is somewhat more com- 
plex. SAY” is defined as an immediate 
word, which executes even during the com- 
pilation state. It does not, though, cause 
immediate output as during execution. 
Instead SAY” first compiles an address 
pointer to the (SAY”) run-time routine. 
The text string, along with its leading 
count byte, is moved to the next available 
dictionary locations. Finally, the diction- 
ary pointer is incremented to the byte 
beyond the end of the string. 


During later execution of the colon- 
defined word, execution of (SAY’’) will 


output the compiled string. Fig-Forth 
uses the return stack to hold an address 
pointer to the next component ofa colon- 
defined word; in this instance, the next 
“word” is actually the string compiled 
into the definition by SAY’’. Lines 11 
and 12 of screen 501 non-destructively 
copy the pointer to the string from the 
return stack and increment it to designate 
the first data byte. That pointer is left on 
the stack, along with two copies of the 
character-count byte. One copy of the 
count is incremented (to account for the 
count byte itself), and used in turn to 
increment the return stack’s word pointer 
to beyond the string. Finally, SPEAK is 
used to output the string. 


That’s it—all the basic building 
blocks needed for audio output of ASCII 
strings with the Votrax Type’N Talk. 
Listing 2 defines several other words 
using these fundamental components, for 
convenient output of numeric values and 
ASCII text from disk screens. Again, all 
are completely portable, and all use 
VOICE+PRINT as a software switch — 
the direct result of Forth’s building block 
approach. 

SAY LINE corresponds to Fig-Forth’s 
.LINE and outputs line ni of screen n2 to 
the Votrax. Similarly, SAYSCREEN out- 
puts an entire screen — presumably ASCII 


COMPARE ASCII 
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text, since Forth source code’s abbrevia- 
tions and symbols don’t translate well to 
audio. 


Single- and double- precision numeric 
stack values may be output to the audio 
system with SAYU, SAYN, and SAYD, 
respectively, in the same manner as U., 
., or D. for printed output. If numeric 
output to the terminal is desired as well, 
it is easiest to use separate voice and ter- 
minal output words in this instance rather 
than the VOICE+PRINT software switch. 
As defined, SAYD outputs a negative sign 
as the word “negative” rather than a 
single character. In addition, digit charac- 
ters are output separated by blanks; 
otherwise, the Votrax would attempt to 
pronounce a value such as OCABH as a 
single word rather than the desired ‘‘see- 
a-bee.”’ 


Aside from any necessary port ini- 
tialization, only SAYCHARACTER will 
require modification for use on other sys- 
tems. Appropriate values should be used 
for the control port number in line 12 
and data port number in line 13 of screen 
500. If the Votrax’s Clear To Send con- 
trol signal is not brought onto the I/O 
board as bit 0, it will also be necessary to 
change the masking constant preceding 
the logical AND operation in line 12. 


Users of the proposed Forth-79 ver- 
sion of the language should note that 
more extensive changes will be necessary. 
Some Forth-79 words are defined some- 
what differently than their Fig-Forth 
counterparts; in other instances, no Forth- 
79 counterpart exists. Examples of the 
latter problem are the words P! and P@, 
which transfer data between the stack 
and I/O ports. Fortunately, most Forth-79 
implementations are also supplemented 
with these and other useful Fig-Forth 
words. 


The Forth-79 version of WORD 
moves text strings in much the same man- 
ner as the Fig-Forth version, but also 
leaves a pointer to the leading count byte 
on the stack; remove HERE from both 
locations in the definition of SAY” and 
use the address left by WORD instead. 
Also, the initial value of VOICE+PRINT 
should not precede the definition, as 
Forth-79 variables must be _ initialized 
after being defined. Finally, Forth-79 
does not explicitly require the same type 
of return stack usage as Fig-Forth (al- 
though as a practical matter, few Forth- 
79 systems will differ). Some experimen- 
tation may be necessary to determine if 
(SAY’’) will operate in the proper manner. 


DD, 
(Listing begins on page 58) 
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Circle Reader Service No. 239 
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SAY”? 


(Text begins on page 55) 


Listing One 


Screem *# 500 


0 ¢ Tspe’N Talk Output-1 CKM 06 Oct 82 ) 

1 HEX 

yi 

3.43 CLEARTHROAT ¢ initialize Vector Graphics I/0 port) 

4 27 OCE 40 0 0 0 ¢ data bytes) 

oD & 0. D0, 7: © OOF © outer 6 betes to port. 73.3. HEC EMAL. 

& 

7 CLEARTHROAT ¢€ execute to initialize port) 

8 

9 0 VARTABLE VOICE+FRINT ¢€ O=voice only, l=say and print too) 

10 

Li ¢ SAYCHARACTER ¢€ c <--> ) 

ia BEGIN 7 F@ 1 AND UNTIL ¢ wait for clear to send) 

13 DUF 6&6 FF! € gay the character ) 

14 VOICE+FPRINT @ IF EMIT ELSE DROF THEN ¢ print if desired) ; 
iS -<—> 

Screen # SOL 

0 €¢ Type’N Talk Output-2 CKM 06 Oct 82 ) 

‘1 

m2 or Gen te eee BoD ( based on TYPE? 

i ~DUF ¢€ duplicate non-zero count hyte) 

4 IF ¢€ valid count) OVER + SWAP ¢ find loop parameters) 

si DO I C@ ¢€ get next character) 

& SAYCHARACTER ¢ output character) LOOF 

“A ELSE ¢€ zero count) DROP 

8 THEN 3 

9 
10-2. 450A") ( rurm-tine routine based om ¢.") 

Li KR € copy pointer to next word) COUNT BDUF ¢€ get nyte count) 
y EA i+ R> + SR ¢C increment pointer to next word) 
13 SPEAK ¢ output string) 3} 
14 
7 S weonlenas > 
Screen # 302 

0 € Type’N Talk Output-3 CKM 06 Oct 82 ) 

1 

2 DECIMAL 

3 

4 + SAY" ( immediate word based on ." >) 

ot 34 ¢ Ascii of " delimiter) 

& STATE @ € fetch compilation state flag) 

7 IF ¢€ compiling) COMPILE (SAY") ¢€ compile run-time pointer) 

3 WORD (€ move string to top of dictionary) 

9 HERE C@ ¢€ fetch count byte) 1+ ALLOT ¢ increment dp? 
10 ELSE ¢( executing) WORD ¢ move string to top of dictionary) 
13 HERE COUNT ( leave address & count) 

LZ SFEAK ¢ output string) 
13 THEN 3} 

14 IMMEDIATE 

‘tS $5 


Listing Two 


Screen # 503 


0 
1 


CON O& CFD G3 


( Type’N Talk screen utilities CKM 10 Oct 82 ) 
DECIMAL 
e SATCINE 2 orci. FS.) ( tased om .LINE) 


(LINE) € move screen m2 to buffer, leave startine addr anc) 
( character count of line) 

~TRAILING (€ adjust count for trailing blanks) 

SFEAK € output the line) } 


ence a SSS sss sss ss ssc ssc 


58 


Dr. Dobb’s Journal, Number 78, April 1983 


ennnnrrrrrrnnrrrnrrrreenrereeeneeere err aeeee esses SS SE SE DE SEES I SS SS SS ETS SSE? SEIS 2 ZS Ae ht SESE EE AS ANSP SDE EOS YS PIPE PEAS Oe TD A ES AEF PE, 


@ 
¢ 


9 SAYSCREEN ( m => ) ¢ output Ascii text of entire screen m) 


10 SCR ! (€ save screen mumber in user variable) 
1i 146 0 DO ¢ set up line count loop) 
12 I SCR @ ¢€ leave line, screen mumbers) 
13 SAYLINE ¢€ say the line) 
14 LOOF: 3 
» Nee age 
Screen # 304 
0 ¢ Type’N Talk mumeric utilities CRA“ LG Get 82 ) 
1 DECIMAL 
2 $ SAYD ( d >> ) ¢€ based on D.) 
3 DUF ¢€ copy high bytes) 
4 O< IF «( d < 0 ) SAY" NEGATIVE": THEN ( output sian) 
Fa DAES <4 #5 #> ( convert to Ascii, leave start addr and m) 
& OVER + 1+ SWAF ¢€ get limits for char. by char. output loop?) 
7 DO 32 SAYCHARACTER I C@ SAYCHARACTER 32 SAYCHARACTER 
8 LOOP ¢ output with blanks between characters) } 
9 
10.3 :586%N. © nes ¢ based. on. ss) 
1i S->D ¢ convert m to equivalent d>) SAYD ¢ output da) 3 
LZ 
13 : SAYU ( u => >) ¢ based on U.) 
as 0 ¢€ leave a dummy high-order half of d) SAYD ¢ output dd 5; 
t7: 35 


End Listings 
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guage based on the U.S. DOD’s Ada® language. 
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NOTE: Augusta does not purport to be a compiler for the complete Ada 
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CP/M is a registered trademark of Digital Research, Inc. 
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the key source for C. Just as fundamental is the C86™ C 
Compiler: 


The C86 mC Compiler is especially designed for the IBM® 
Personal, IBM® Display Writer, CP/M-86° and MS-DOS® 


For further information on the C programming language 
and the C86 t™ C Compiler, please contact: 


Computer Innovations, Inc. 
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A TRS-80 8080 to 





Z80 Translator 


ack in the May 1981 issue of DDJ, 

No. 45, Robert W. Dea offered us his 

program “‘An 8080 to Z80 Transla- 
tor System.”’ Following is a description of 
the program and the .nany modifications 
I have made to it that will allow the crea- 
tion of an 8080 source file, and through 
translation, will produce a Z80 source file 
that will be accepted by Radio Shack’s, 
or any equivalent, editor/assembler. 

A rather large project I had been con- 
sidering for some time was to convert the 
Forth Interest Group’s 8080 version of 
Forth into Z80 code. Since I had never 
bothered to learn the 8080 mnemonics, 
and was well versed in the Z80 codes, I 
thought a translated version would after- 
ward allow easier debugging and modifi- 
cation of the Forth program. Since my 
system is a TRS-80, 48K, model I, with 
a single disk, I had to modify Mr. Dea’s 
translation program to work with Micro- 
soft’s BASIC. 

The program was also modified exten- 
sively to speed up the translation process. 
By changing his READ statements into a 
Data Array, and by using a binary search, 
as well as using a double-speed modifica- 
tion on my system, and also compressing 





Anthony T. Scarpelli_ 





Anthony T. Scarpelli, 98 Foxcroft Drive, 
Scarborough, ME 04074. 


This program is based on Robert W. Dea’s 
original 8080 to Z80 translator, published 
in DDJ No. 45. The parts of his original 
work that appear here are used with his 
permission. Mr. Dea has now placed his 
original translator in the public domain. 
Mr. Scarpelli’s work here is also in the 
public domain. 


——> 3; MEMORY TEST 
SURE? 
\ 
——-> MVI C,91 
SURE? 
a 


——> START LXI SP,@FFFFH s;LOCATE STACK COUNTER 


SURE? 

5 
> Le 
SURE? N 

:," 
SURE? 

\ 
_— > 


Figure 1. 


Output from Create routine. 


s;LOAD REPEAT COUNTER 


LXI H,$46@H ;LOAD START ADDRESS 





the BASIC program to get rid of spaces 
and REM statements, I was able to sub- 
stantially reduce the time it took to con- 
vert the 8080 code to Z80 code. For in- 
stance, using a test file of 8080 code from 
POP H to XTHL, I was able to change the 
translation time from 7 minutes 39 sec- 
onds to 3 minutes 18 seconds. 

There are probably many other mod- 
ifications that could be done to increase 
the speed even further, such as changing 
multiple lines to single lines, watching 
how all the variables are dimensioned, 
streamlining loops, etc., but the time 
to do this didn’t justify the few seconds 
more I would get. So I left it the way it 
is now, and it works fine. 

Many parts of the program are just as 
Mr. Dea wrote it, but I added comments 
in some lines to help me understand 
what’s going on a little better, and I also 
wrote a flow chart for it. I found my first 
round with the program tough going be- 
cause of the jumps around the BASIC 
code, but now my understanding is alittle 
better, and I have included the flow chart 
(starting on page 63) so that you can more 
easily modify the program if you need to. 

Let me go through the program 
somewhat to show you what I did, and to 
indicate how an editor/assembler file is 
created. I should start by describing the 
part of the program that will create the 
8080 code file, so jump to line 4810. 


Creating the 8080 File 


I use Ultrados for my operating sys- 
tem, so the first thing we have to do is 
make sure a buffer is available; that’s the 
CMD“‘O” in line 4830. With TRSDOS 
you don’t have need of this code, and it 
can be deleted. I don’t know what has to 
be done with other DOSs. 


The instructions are pretty self- 
explanatory; the only important thing I 
should note is that this routine does no 
editing. The only chance to correct mis- 
takes is when you are asked “‘SURE?”’. 
You are given a chance to change your 
mind by inputting an ‘‘N.”’ When you are 
rolling along, and enter a lot of code, 
sometimes you forget to correct mistakes. 
Generally this causes no harm; the trans- 
lation will just ignore an opcode that 
can’t be found, or something weird will 
be added to the translation. This can be 
normally edited out when the file is in 
the editor/assembler. 


The other important point I must 
mention is due to the way random access 
files are written to disk. Only 255 charac- 
ters are allowed in one record, but there 
is room for 256. The 256th character is 
a random character of some type in the 
Z80 EDTASM source file that can be 
edited out during the assembly process. It 
could also be edited out from disk with a 
zapper program of some type, but usually 
this is not necessary. When using the 
EDTASM in the assembly mode, the 
assembly process can be switched to stop 
on any errors. This is where all editing 
of the file can be done. Some day Ill 
see if this can be fixed. As you can see 
there is still room for some improve- 
ments to this program. 


Line 5020 adds an up-arrow (CHR$ 
(91)) delimiter to the file’s end marker. 
All entries have this delimiter. Lines 5030 
and 5040 open the random access file, 
and set up A$ as the buffer. 

When we are adding 8080 code to 
the file, the only difference between a 
line label or comment line, and an opera- 
tion code is whether there is a space in 
the first column or not. Line 5070 prints 


ENTER 8@8@ FILE NAME ? MEMTSTSa/TMP 

ENTER Z8@ DISK FILESPEC ? MEMTSTZ/SOR 

ENTER EDTASM SOURCE FILE NAME (4 CHAR. MAX) ? MEMTST 
START LINE NUMBERS AT ? 186 


—- @#i9H -; 
GAIGG : 
—- @H118 —- 
BBB LD 
— BBI2G 
GBi2G START LD 
—- @B1i3sG - 
BH1SGB LD 
—- 8149 - 
HBAS LD 
—- 98158 - 





LXI H, SSH 


LXI D,1iFFFH 


MEMORY TEST 
MEMORY TEST 
MVI C,@1 


;LOAD REPEAT COUNTER 
C,@1i ;LOAD REPEAT COUNTER 


— START LXI SP, @FFFFH sLOCATE STACK 


SP, @FFFFH ;LOCATE STACK 

;LOAD START ADDRESS 

HL, SB9SH ;LOAD START ADDRESS 
;LOAD TOTAL BYTES 


DE, 1—FFH ;LOAD TOTAL BYTES 


Figure 2. 


Output from Translate program. 


————————————————————— 
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a down-arrow to mark this column, and 
line 5080 is where we prompt for an in- 
put. See Figure 1 for an example of this 
process. Note that a down-arrow prints 
out as a backslash on my printer. 

If you were to exceed the 255 charac- 
ter input to a record, you would jump out 
of the program and get an error statement. 
To avoid this, lines 5090 and 5100 make 
sure that you are aware of this and give you 
a chance to reduce your line somewhat to 
fit. The record will be written to disk as 
soon as it exceeds 215 characters and is 
less than 255. This wastes a few bytes, 
but is simple to implement. 

The rest of the routine takes the in- 
put Al§$, adds an up-arrow, and adds it 
to A2$ if the length is right. In line 5200 
spaces are padded to A2§ and it is placed 
into buffer A$. Then it is put onto disk in 
line 5210. The record number, R, is incre- 
mented and we can now jump back to 
add more 8080 code to the file. An 
“@EXIT” closes the file. 

Now we have a file filled with 8080 
code and comments separated by an up- 
arrow. We take this file and filter it 
through the translator in the next section. 


Translating 


Figure 2 (page 60) shows output from 
the ‘‘translator” part of the program. In es- 
sence, what the program does is to first get 
the 8080 instruction, search through an 










functions, all written in C. 


Professionals 
Prefer Q/C. 


For only $95, Q/C is a professional, fully-supported C com- 
piler for CP/M. Q/C supports a large subset of C, and is upward 
compatible with the UNIX Version 7 C compiler from Bell Labs. 
The Q/C library includes over 50 input/output and other support 


array until it is found in the data, and then 
create a string of the Z80 code. Next, the 
8080 operand is converted to equivalent 
Z80 code as specified by the subfields in 
the rest of the data and added to the string. 
A data line is specified in lines 170-250. 

After the menu, we clear string space 
and dimension the array in line 430. The 
only reason for line 440 is to make sure 
the speed goes back to normal if an error 
occurs. We have to have normal speed 
during disk accesses. This error trap can 
be expanded if necessary. 

Next we make sure two buffers are 
available in 460, then comes the array (83 
elements long), then some more initiali- 
zation until line 1410. Here we ask for 
the same filespec used in the creation of 
the 8080 source code file. Then we get 
the filespec used for the Z80 file, and 
then the source file name, which is re- 
quired to be only six characters long. 


The format of an editor/assembler 
file is as follows: the first character is a 
D3, followed by six ASCII characters for 
the file name. If the name. is less than six 
bytes, the rest is filled up with spaces to 
make six. Next is the line number, five 
bytes long, with each decimal number 
increased by 176 decimal; for example, a 
5 becomes a B5H token. Then comes a 
space, and then the text with a termina- 
tor of an OD. The next line number fol- 
lows immediately, and so on. The final 











byte of the file is a 1A. 

Lines 1540 to 1590 fill in the name 
with spaces. The next routine, lines 1620 
to 1760, produces two numbers in the 
form of strings; one is C2$, which is used 
for printing, and the other, C3$, is for the 
Z80 output file. 

The next routine, lines 1790 to 1880, 
goes to the disk and gets the next record, 
line 1810, and then pulls out the 8080 
line of code. Remember it is delimited 
by an up-arrow, CHR$(91). It leaves this 
routine with the code in I$, which is 


printed on the screen. 


The next few lines, 1910 to 1940, 
check to see if we are at the end of the 
8080 codes. Also, in order to be able to 
merge the source code in two or more 
editor/assembler files, it’s a good idea to 
note the last line number so that you can 
start the next 8080 file with a larger line 
number. 


We have two output buffers, one for 
printing, 02$, and one that will go to 
disk, 0$. The routine in lines 1980 to 
2000 first checks to see if the first column 
is a semi-colon. If so, it will just add the 
text to the buffer. If not, then we go to 
the subroutine at 4030. Since this is an 
important routine, let’s go to it. 

The 8080 code line is delimited by 
blanks. If the first column is a blank then 
we know that the line contains no label, 
so we test for this in line 4040. If there is 


DEVELOPMENT HARDWARE /SOFTWARE 
GTEK MODEL 77128 EPROM PROGRAMMER 














When you buy Q/C, you get a working compiler that gener- 
ates assembly language. You also receive the complete source 
code for the Q/C compiler and the function library. The Q/C 
compiler is written in C, with a few functions hand-coded in 
assembler to enhance performance. Most compiler options 
can be customized to suit your taste by using the configuration 
program we supply. 














What really sets Q/C off from the competition is our 138-page 
User’s Manual. The tone of the manual is informal and per- 
sonal. Jim Colvin (the author of Q/C) tells you how to use the 
compiler, and clearly describes each library function. There’s 
even a chapter that explains in detail the “internals” of Q/C. 








Q/C is a fully-supported professional product. We continue to 
develop and enhance Q/C, and provide updates at a nominal - 
cost. Write or call for details of Q/C Version 2.0. 


Dire 
tHECODE 
Santa Barbara, CA 93111 


WORKS (805) 683-1585 


CP/M is a trademark of Digital Research. 
UNIX is a trademark of Bell Laboratories. 








5266 Hollister 
Suite 224 









Circle no. 92 on reader service card. 








Microprocessor based intelligence for ease of 
use and interface. You send the data, the 
7128 takes care of the rest. 

RS-232 interface and ASCII data formats 
make the 7128 compatible with virtually 
any computer with an RS-232 serial inter- 
face port. 

Auto-select baud rate. 

Use with or without handshaking. 
Bidirectional Xon/Xoff supported. 
CTS/OTR supported. 

Devices supported as of DEC 82. 

NMOS NMOS CMOS EEPROM MPU'S 
2758 2508 27C16 5213 8748 
2716 2516 27C32 X2816 8749 
2732 2532 C6716 48016 8741 


Verify erasure and compare commands. 
Busy light indicates when power is being ap- 
plies to program socket. 
Complete with TEXTOOL zero insertion 
force socket and integral 120 VAC power 
supply. (240 VAC/50HZ available also) 
High Performance/Cost ratio. 

eee Model 7128 PRICE $389.00 eee 


MODEL 7128 SOCKET ADAPTERS 

MODEL 481 allows pregramming of 8748, 

8749, 8741, 8742 single chip processors. 
Price $98.00 


MODEL 511 allows programming the 8751, 
Intel's high powered single chip processor. 
Price $174.00 


2732A 2 27C64 8742 
a764 aa766 8751 MODEL 755 allows programming the 
27128 8755 8755 8755 EPROMI/IO chip 


Read pin compatible ROMS also. 
Automatic use of proper program voltage 
based on type selected. 

Menu driven eprom type selection, no per- 
sonality modules required. 

(40 pin devices require adapter) 

INTEL, Motorola and MCS-86, Hex formats. 
Split facility for 16 bit data-paths. Read, pro- 
gram, and formatted list commands also. 
Interupt driven type ahead, program and 
verify real time while sending data. 
Program single byte, block, or whole eprom. 
Intelligent diagnostics discern between 
eprom which is bad and one which merely 
needs erasing. 





Price $135.00 


MODEL 7128/24 - budget version of the 
7128. Supports 24 pin parts thru 32K only. 
Upgradable to full 7128 capacity. 

Price $289.00 


Non-expandable, very low cost models avail- 
able for specific devices. 

MODEL 7128-L1 for 2716 only $149.00 
MODEL 7128-L2 for 2732 only $179.00 


Also available from stock: 

Eprom Erasers UVP model DE-4. . $78.00 
Avocet Systems Cross Assemblers $200.00 
RS-232 Cable Assemblies ...... $25.00 
Programmable Devices.......... call 
Complete development systems . $3240.00 


Post Office Box 289 


Waveland, Mississippi 39576 


(601) 467-8048 if 
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a character we read through I$ until a 
blank is encountered. The label, up to the 
next blank, is edited into the output buf- 
fers from 4060 to 4150. Then we add 
eight spaces so the printout of 02$ looks 
like it would in an editor/assembler, and 
then add a tab to the file buffer to delimit 
it. If there was no label, then we merely 
skip the editing part of the routine. Next 
we jump to a common routine that scans 
the code line (I$) to get the next code 
out of it. Let’s jump to it for a minute. 
GOSUB 3470. 

The lines from 3520 to 3590 just 
jump over any blanks in the code line. 
Then lines 3640 to 3760 accumulate the 
actual code and leave it in N$. Now re- 
turn to 4240, and return to 2040. Then 
GOSUB 4270. A lot of this code is origi- 
nal and does a lot of jumping around as 
you can see. It’s not my style, but I 
didn’t want to spend a lot of time turning 
it into some structured code. 

Lines 4270 to 4350 are the binary 
search routine I added. It’s a typical bi- 
nary search so I won’t go into it. The rou- 
tine exits pointing to the data from the ar- 
ray ready to be worked on. That is, F is the 
index into the array DA$. Now we can re- 
turn to 2110, if there was indeed a match. 


The first thing we do is to make sure 
our output buffers are empty. Then we go 
back to our subroutine at 4030 that merely 
looks at the beginning of the next part of 
the 8080 code and sees.a blank. Remember 
that this blank separates the opcode from 
its operand. We then skip to 4170 where 
we add spaces for pretty printing, and a 
tab for the Z80 code. Then we get the 
next subfield, which is the operand, and 
put it in N$. Back to 2150. 


Here we jump immediately to 4380, 
which is a subroutine that puts all of our 


array data into another small array S1$(x). 
It leaves with X$ holding the Z80 code and 
the rest of the array filled with the sub- 
fields which do the translation of the oper- 
ands. See lines 90 to 250 for a review of 
how these arrays and subfields are set up. 

Now back to 2160 where we put our 
Z80 code into the buffers and add spaces 
and a tab. 

The next job is to read the subfield 
codes so that the rest of the 8080 code 
can be properly added to the buffers. Our 
index L should contain the number of 
subfields there are. We start a loop that 
reads through the subfields and goes to 
the subroutine that produces a match. 
These subroutines are relatively simple. 


The Subfield Subroutines 


The <A> subroutine is the longest 
and most of the others jump into it, so 
we'll start our journey there at line 2800. 
The first thing we do is to get our next 
subfield from the 8080 code. Then we 
initialize H$ to the appropriate tree string 
and start to search the string for a match. 
The search routine at 3820 is simple 
enough, so I won’t dwell on its finer points. 

When we find a match we get the next 
subfield definition in the tree string, line 
2920 to 2990, and edit it into the buffers, 
line 3000. We set our match flag if we 
hopefully did find it. 


If you look at the flowcharts for the 
rest of the codes, you will see that <G>, 
<B>, <C>, <D>> ‘and <B> ‘all jump 
into the <A> subroutine, and that <F> 
and <S> do their own little thing. They 
are simple enough not to explain them in 
detail. 


After the return from the subrou- 
tines, we end up back at 2370 and then 
2410 on a good match. If there are more 
subfields to translate, we loop back to do 
the rest. We finally come to 2430 where 
we null out the small array, and then edit 
anything else from our 8080 code, such 
as comments, into our buffers. We end up 


at 2560 where we jump to 2660. 


Get It Out 


The routine here adds in our line 


number, prints it on the screen at 2670, 


adds a carriage return, and checks to see 
if our buffer plus the output buffer is less 
than our file buffer. If the buffer would 
overflow, it’s time to put it onto disk, so 
we jump to the routine at 4710 that 
does just that. If not, we add the code to 
the output buffer, and jump back to 
1650 where we increment our line num- 


ber and start the whole ball rolling again. 


As you can see, all the routines are 
relatively simple; however, because of all 
the jumping around, it is difficult to 
understand and follow without a flow- 
chart. This is a good reason to use more 


structured programming methods. 


The program works, though, and if 
you need to get those old 8080 files into 


Z80 code, this is the program to use. 
DD; 
(Flow charts from pages 63-67) 
(Listing begins on page 68) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 241 


WE GAVE YOUR DRIVES THE FIRST BREAK THEY EVER HAD 


AND NOW 





TimeEPROMmer, 
the S-100 CP/M* compatible 
programmer that’s useful every _ 
second of every day. A real time 
calendar/clock with lithium battery 


and an EPROM programmer that programs 
all popular eproms. Unbeatable price/performance 
ratio. Features designed for easy operation. 


Eprom Programmer: Port addressable. 


Read, Verify, Program, and Disk transfer. Handles up to 28 pins. 
Power generated and controlled on board. All software and documentation 
included. Assembled units tested with burn. in. 


Real Time Calendar /Clock: Complete time counting functions with 
CMOS LSI. Allows up to 6 months power down use. Independently port 


addressable. 
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GIVE YOU TIME TO BURN... 











TimEPROMmer BB & software & manual ..... $75 
TimEPROMmer Kit & software & manual .... $195 
TimEPROMmer A & T software & manual ... $295 
Our DISK CONTROL UNIT that turns 8” drives off 
when not being accessed. State drive. 

DCU ere ee mates 6s ee os eos 0 5 
DG. Ate Ge aranital2 eo ae > > $AG05 
P & H $2. NYS add tax. 

CP/M is T.M. of Digital Research 


OPTRONICS TECHNOLOGY 
P.O. Box 81 Pittsford, NY 14534 (716) 377-0369 
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End the Dark Ages of 







Assembly Language.... 
10-320 ae —— 7 
INTRO | 
330-410 
PRINT 
MENU 
430-1380 
INIT 





ne with SMAL/80 


Assembler ;: 

HL=M (PTR) ; LHLD PTR: 

DE=9; LXI D,9°> 
=HL+DE; DAD D 
IF A-L EQUAL CMP L 
THEN JNZ Ll 
A=A-14 SOT = ta 


CREATE FILE 
NAMES AND 
BUFFER 






1540-1590 
MAKE SURE 


NAME HAS 6 
CHARACTERS 
AND START 
WITH D3 


ELSE JMP L2 
A=L; L1:MOV A,L 
M(BC) =A; L2:STAX B 





SMAL/80 gives you the logical power, 
versatility and convenience of a com- 


1620-1760 piled, structured high level language 
SET STARTING LINE NUMBER like Pascal, Ada or C, plus the effi- 
INCLUDE LINE COUNT ciency of assembly language. 


CONVERT TO STRING 
CONVERT TO TOKENS 
PRINT LINE NUMBER 


| intuitive, processor-independent sym- 
bolic notation system to make your pro- 
grams easy to read, debug and maintain; 
1800 __] programming constructs BEGIN... 
END, IF...THEN...ELSE, and LOOP.., 
REPEAT, plus indentation, to graphical- 
ly display the structure of your algorithms; 
GET 3080 |_| extremely flexible macro and text 
RECORD pre-processor to create yor own pro- 
YES FROM DISK gramming environment, , 
|] compiler/linker to mix your input 
source code and relocatable object code, 








4510-4590 












POSITION 
> RECORD 
LEN 
























NO creating modular programs; 

| translator program to automatically 
1790-1880 upgrade your assembly code to SMAL/80; 
GET 8080 CODE || available on CP/M disks with manual 

AND PRINT IT for $150 plus $4 shipping. 

New! Z-80 version (runs on 8080’s): 
4620-4680 $175. 8080 version only: $150. Macro- 
processor only: $75. Available on 
1910-1940 | CAVE ANYTHING CP/M disks. Add $4 for shipping. 
END OF LEFT IN BUFFER Complete tutorial text: ‘‘Structured 
TRANSLATION AND CLOSE Microprocessor Programming’’ 
(@ es ! FILES (Publ; Yourdon Press) $20 plus. $2 


shipping. Send for your free button 
and literature or try the Ultimate 
Demo: SMAL/80 is Guaranteed! 


Chromod Associates, 
(8 ) 1030 Park Ave., Hoboken, N. J. 07030 
Telephone: (201) 653-7615 


Also available from 
(Continued on next page) WESTICO (203) 853-6880 
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NO 











2660- Ue 
ADD LINE NUMBER TO 0$ | 277° 
PRINT COMMENT 02$ YES 
AND OUTPUT RECORD 
IF BUFFER FULL 
NO GOSUB 4030 (GET LABEL OR CODE) 
4030-4240 

2040- 
2060 nO 







UMN NUM- 
BER 12 





INST RUC- 
TION IN BUF- 
FER 






NO 











IT IS A LABEL 
FIELD! ADD TO 
BUFFERS 


GOSUB 4270 YES 







4270- 
SEARCH FOR _ | 4390 


CODE IN ARRAY 
ADD TABS 





GOSUB 3470 


3470- 
3790 


2110- 
NULL OUTPUT | 2120 





STRING BUFFER GET NEXT 
SUBFIELD 
GOSUB 4030 
4030- 





ADD SPACES AND] 4240 
TABS, GET NEXT 
SUBFIELD 





2150- 


GET Z-80 CODE | 235° 


AND EDIT TO 
OUTPUT BUFFER 






GOSUB 4380 


4380- 
4480 






GET 2-80 CODE 
PUT SUBFIELDS 
INTO ARRAY 






(3 Ce) © (Continued on top of page 65) 
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2160-2200 


ADD X$ TO BUF- 
FERS AND TABS 





YES 


READ 
SUBFIELDS 






GOTO SUBROUTINES 
ON MATCH 


WITH SUB- 
FIELDS 
? 


2430 
ZERO ARRAY 
2450 
NO 
YES 


ADD TABS, NEW LINES, 
PUT INTO BUFFERS 





2460-2560 





(Continued on next page) 
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FREE BASIC 
2-80 BOARD 
COMPUTER 





The MASTER CONTROLLER 
BOARD contains: 
-Z-80 Microprocessor 
72-Parallel 1/O lines; three 8255s 
-Keyboard controller: 8279 
12K-EPROM: three sockets for 
2708, 2716, 2732 
2K-RAM: 2114s 
8-Sixteen bit counter timer 
channels: one 8253 and one 
AMD 9513 
2-Serial I/O ports; one Z-80 SIO 
chip. One port is RS-232 
W/DB-25 
1-High speed arithmetic 
processor: AMD 9511 
A bus expansion connector is 
provided 


All this on one board less than 
nine inches on a side 


Bare Controller Board with Doc. $49.95 


Free Controller Basic is a public domain 
Tiny Basic that can IN and OUT ports, 
PEAK and POKE RAM, CALL assembly 
language programs, and use either 
DECIMAL OR HEXIDECIMAL numbers. In a 
2716. Requires 2k RAM,SIO,8253 (baud gen.) 
With the BARE BOARD $14.95 Alone $19.95 
TDL monitor program allows a CRT or TTY 
to control the MASTER CONTROLLER 
BOARD. Requires 2k RAM,SIO,8253 (baud 
gen.), 4Mhz XTAL. Includes Complete 
Listing on a 2732 $69.95 
Assembled TINY BASIC CONTROLLER 
BOARD has 2k RAM,SIO,8253 (baud gen.), 
8255. This arrangement gives 24 I/O lines, 2 
spare counter timer channels, and a serial 
channel available after using one counter 
timer channel as a baud gen. and one serial 
channel to talk to a terminal or computer. 
Functions can be expanded by adding 
additional RAM/ROM, |/O and processing 
chips. EXPANDABLE SPECIAL $299.99 


OEM & Dealer Inquiries Welcome 
USA & CANADA include $4.95 
postage & handling. We ship 
World Round. Please include 20% 
for shipping plus $5 handling 
we refund the excess. 


SPACE-TIME PRODUCTIONS 
2053 N. Sheffield 
Chicago, Illinois 60614 
(312) 327-0391 
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2800 
<A> 
GOSUB 3470 
GET NEXT 
SUBFIELD 
<G><8> <C>, 2820-2840 
<D>, AND<E> INIT 


SUBROUTINES 
COME IN HERE 








YES 
INSTRUC- 


TIONS 






3050 
RESET ’ 
FLAG NO GOSUB 3820 
3820-4000 


SCAN TREES, GET 





NEXT SUBROU- 
RETURN TINE DEFINITION 


GOSUB 3820 YES pila 
MATCH 
? 
SCAN TREES ETC. : 
NO GOSUB 3820 


SCAN TREES ETC. 





3000 
ADD OUTPUT 
TO BUFFER 
3020-3030 
SET 
FLAG 
RETURN 


(Continued on top of page 67) 
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GOSUB 3470 


GET NEXT 
SUBFIELD 


3470- 
3790 


<—B>,.<C>, 
<D>,<E> 
SIMILAR TO <G> 











GOTO 2840 


3310-3370 


GOSUB 3470 






CHECK 
LENGTH, ADD 
TO BUFFER 


RETURN 
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End Flow Chart 


All C Compilers 
are Not Created 










We didn’t cut any corners #& 








#7 when we created Introl-C/6809, # 
a and the benefits you get ss 
ee really show. os 
ie | see 
pis Introl-C/6809 generates object code that is i“ 
Hair typically only half the size and executes twice yt} 
Me as fast as code produced by any other 6809C ) i 
“4 © compiler on the market! ys 
is We did an equally better job in other ways >} 
HK too. Introl-C/6809 supports full C, works ah 
it reliably, is a pleasure to use, and has been vot 
Wa “the compiler of choice” among discrimi- N 
We nating programmers since it came on the a 
\\ market more than a year ago. Hf 
ih Available for: } 


OS9* ($375), FLEX** ($375), UniFLEX** ($425). 
One-year maintenance, $100. 


ee 


Trademarks: *Microware Inc., **Technical Systems Consultants | 





CORPORATION 


647 W. Virginia St. Milwaukee, WI 53204 
(414) 276-2937 
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Peterborough 8080 to Z80 Translator 
B ST a 0 U T tole (Text begins on page 60) 


ig *8988 TO Z88 TRANSLATOR 


fa 
a” Ss FOR USE ON TRS-88@, MODEL I, SINGLE DISK SYSTEM 
Services so ? USES ULTRADOS OPERATING SYSTEM 
4g * CREATES Z8@ SOURCE FILE FOR EDITOR/ASSEMBLER 
ols ORIGINAL VERSION BY ROBERT W. DEA, DDJ MAYS #45 F.48 
6a ” MODIFIED VERSION BY ANTHONY T. SCARPELLI, JUNE 1982 

‘Programming Language Translation” 7B 
(Halstead Press) is “‘a major help to 8S 
anyone interested in how Pascal works” 9o..” THE DATA IN THE ARRAY ARE DEFINED AS FOLLOWS: 

(DDJ Sept., 1982). 199 ° L.8989MN.N.Z98GMN.SUB1.SUB2.... 

‘Programming Language Translation” es 3 “ mn rt ny Slag fag Samah omg aes Nee 
contains an excellent Pascal pseudo- es ; ice = NUMBER Oe SURE TELDS 
code compiler and interpreter. Originally 146 * ZJ8QMN = 788 EQUIVALENT INSTRUCTION 
written by Niklaus Wirth and translated i15@ * SUBN = SUBFIELD DEFINITIONS 
to UCSD Pascal by R. E. Berry, the 168 ” 

Pascal-S compiler is now fully-functional 174 * THE SUBFIELD DEFINITIONS ARE 

under Apple Pascal. We’ve already typed 18g ” <A> — REGULAR ONE TO ONE REGISTER TRANSLATION 
and checked all 2,000 lines for your con- aoe : — = Be ee cakes vokast ae tok 

venience. Experiment with an actual Bee ere ee 

Pascal compiler. In addition, the “Service ae sae ¥ Pas ites to Re A 

Update” newsletter describes how other 23g ° <E> - EDIT A COMMA 

Pascal-S users’ are using the compiler. 243 * <F> - EDIT FOLLOWING CHARACTER STRING TO OUTPUT 

The book alone is a $41.00 value. Book 259 * <S> - ONE TO ONE CHARACTER STRING TRANSLATION 
+ full source code on 5%” Apple Pascal 268 ” 
diskette is only $54.30. 2768 * 

Pascal File Selector. Designed and 239 ***% NOTE: THIS VERSION USES A DOUBLE SPEED MODIFICATION 
written by Carl Helmer’s North American 21" OUT 254,1 CAUSES DOUBLE SPEED CHANGEOVER 
Technology, Inc., this Pascal unit allows — : OUT 254,84 CAUSES NORMAL SPEED CHANGEOVER 
interactive, menu-driven file selection ae : 
and creation. A file is selected from any 339 CLS:PRINT" *%4% 8689 TO Z8G TRANSLATOR *4%%" 
mounted diskette with as few as 5 key- 349 PRINT:PRINT"ENTER °C’ TO CREATE AN 898 SOURCE FILE" 
strokes. Also included is a Utilities unit 359 PRINT"ENTER *T* TO TRANSLATE 8989 TO Z89 CODE AND" 
filled with useful, system-level functions 368 PRINT" CREATE EDTASM SOURCE FILE” 
and procedures. Full source code pro- 378 PRINT"ENTER 7X”? TO EXIT PROGRAM" 
vided on 5%” Apple diskette for only 388 INPUT Q$ 
$30.00. 398 IF Q@$="C" THEN 4829 

With every order receive a free sub- 499 IF Q@$="X" THEN OUT 254,4:END 


419 IF Q$<>"T" THEN 349 


scription to our newsletter ‘‘Service Up- 
date.” We provide continual support for 
every product we distribute. 449 ON ERROR GOTC 5228 


450 * MAKE SURE TWO BUFFERS ARE AVAILABLE (ULTRADOS) 
469 IF PEEK(&521A)<2 THEN CMD"0":GOTO 46% 


439 CLEAR @:CLEAR 1590:DIM DAS$(83) 


479 
J rad peer eee es = anne lh ceo RUN 489 DA$(1)="3.ACI.3.ADC.<F>.A,.<S>" 
Address. i.) oe ee a 49H DAS$(2)="3.ADC.3.ADC.<F>.A,. <A>" 
City State Zip Code 289 DAS$(3)="3.ADD.3.ADD.<F>.A,.<A>" 
a Sif DAS$(4)="3.ADI.3.ADD.<F>.A,.<S>" 
S29 DAS(5)="3.ANA.1.AND.<A>" 
AA 20 ae ee 8 Er tes Soe 2 S53 DA$(6)="3.ANI.1.AND.<S>" 
VISA C Inter Bank # Exp. Date __ See See e re Set. 1. CALL <S2" 
S59 DA$(8)="2.CC.3.CALL.<F>.C,.<S>" 
signature 9 ee 569 DAS$(9)="2.CM.3.CALL.<F>.M,.<S>" 
S78 DAS$(19)="3.CMA.9. CPL" 
1 PASCAL-S COMPILER $54.30 Se Sete oe re Ol EOE” 


599 DAS (12)="3.CMP.1.CP.<A>" 

UJ NATI FILE SELECTOR $30.00 68 DA$(13)="3.CNC.3.CALL.<F>.NC,.<S>" 
0 INFORMATION 619 DAS$(14)="3.CNZ.3.CALL.<F>.NZ,.<S>" 
626 DA$(15)="2.CP.3.CALL.<F>.P,.<S>" 
63 DAS$(16)="3.CPE.3.CALL.<F>.PE,.<S>" 
SHIPPING INCLUDED 649 DAS$(17)="3.CPI.1.CP.<S>" 

(ALLOW 4-6 WEEKS FOR DELIVERY) 656 DA$(18)="3.CPO.3.CALL.<F>.PO,.<S>" 
666 DA$(19)="2.CZ.3.CALL.<F>.Z,.<S>" 
67H DAS$(2S)="3.DAA.@. DAA" 


688 DA$(21)="3.DAD.3.ADD.<F>.HL,.<B>" 
PO Box 458 698 DAS(22)="2.DB.1.DEFB.<S>" 


; 78 DAS$(23)="3.DCR.1.DEC. <A>" 
Peterborough NH 03458 718 DAS (24) ="3,DCX. 1.DEC.<B>" 
(eee) 924-3843 726 DAS(25)="2.DI.9.DI" 


738 DA$(26)="2.DM.1.DEFM.<S>" (Continued on page 70) 
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UPGRADE YOUR AIM-65* INSTANTLY 


“A trademark of Rockwell Inc. 


INTRODUCTORY PRICE 


To A 6809 Development System 
With The : $239. 


From 


LESLEY Plus $6 U.P.S. 
“MACH-9” KL ry Pm And Handling 
, a Includes: 


“6809 CPU Plug-in Assembly 
*Super-set of AIM Monitor 
*“Two-Pass Symbolic Assembler 
“Complete Monitor Source Listings 
“Enhanced Cut & Paste Editor 
*200 Page Manual 

“Full 1/O Control 


“MACH-9” is assembled and tested with 
local BUS, 5 locking low force ROM sockets 
and 2K Static RAM 


MMS Inc. 
1110 E. Pennsytvania Sr. 
Tucson, AZ 85714 
(G02) 746-0418 
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From Plum Hall an Introductory Book on C. 


It has been several years in the making and now it is here. Learning to 
Program in C, by Thomas Plum, teaches C language from the ground up. With 
or without previous programming experience, anyone acquainted with 
computers will find a clear description of how C works. 

You will find guidelines for writing portable programs that will run on 
a wide variety of modern computers — micro, mini, and mainframe, with 
excellent efficiency in all these environments. 


Topic areas include: 
e Environmental details - starting C 
e Data and variables - using the memory 
® Operators and expressions - intuitive reasons for C precedence. 
e Control structure - readability rules 
® Functions - print and scan made easy 
e Case study - full Blackjack source, from design to documentation 
© Pointer, struct clarified 


P i” UM H A LE L 4 Spruce Ave, Cardiff, NJ 08232 
Phone orders: 609-927-3770 











& explains Cc step-by-step eee 
® practical “how to” "gids choaiestR Tie phos OA oonaenal ek Gelccnen ote 
approach f on C and UNIX™ 1, Sa NG Sic cce aC Cee aneM, tm z 
e describes what happens AODRESH Sia CoCo ea 
in the computer : CW Ss SAE ee B 

O Check 
372 pages * 7'4X10 ¢ Price $25 f O Mastercard O Visa &xpiration Date __________ Card No. e 


O American Express SI SriCrR 
Se Ie SS Ee EE ER A a a ee Ee ee ee ee ee 
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Step into the world of fantasy and adventure with the 
exciting new microcomputer game Oubliette! 

Your task is to search the dungeon below for gold, 
glory, and fame! Travel the depths with care for 
around every turn and in every room new dangers 
may be waiting! 

Oubliette, with six characters in a party, has 10 
dungeon levels for you to explore, over 150 different 
monsters to battle, more than 50 magic items to find 
and much more! 


Oubliette is designed exclusively for CP/M* based 
microcomputers. Play the game and live the Legend 
of Oubliette! 


$39.95 


Forest 

The King has given you a mission to complete! You 
must venture into a dangerous forest and battle 
fierce monsters! If you’re lucky, you will find gold and 
magical items to make your task easier. And as you 
become stronger and bolder, the missions become 
more difficult, the monsters more ferocious! 


Forest is a game full of excitement and strategy. 
Take on a mission, play Forest! 


$29.95 


CenNTQUR 


501 Jackson e Charleston, Illinois 61920 
Phone: 217-348-8055 


*CP/M is a registered trademark of Digital Research. Formats 
available for most CP/M based systems. 
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8080 to Z80 Translator 


(Listing continued, text begins on page 60) 


746 
738 
768 
778 
788 
798 
BAB 
81g 
829 
3B 
849 
8508 
869 
8728 
88S 
89H 
98D 
91d 
929 
938 
949 
Fae 
9698 
976 
989 
998 
1999 
1918 
1H29 
1939 
1949 
1959 
1969 
18708 
1989 
1898 
1199 
1119 
1129 
1138 
1149 
11598 
1146 
1178 
1189 
1196 
1299 
1218 
1229 
12398 
1249 
1259 
1266 
1272 
1289 
1296 
13969 
13519 
1329 
1336 
1346 
1356 
134698 
137 
1389 


1396 
1499 
1419 
1429 
1436 
1449 
1459 


DAS (27) ="2. DW. 1.DEFW.<S>" 
DAS (28)="2.E1.8.E1" 

DAS (29) ="3.EQU. 1.EQU.<S>" 
DAS (38) ="3.HLT.@. HALT" 
DAS (31) ="2. IN. 5. IN.<F>.A, (.¢S>.<F >.) ." 
DAS (32) ="3. INR. 1. INC. <A>" 

DAS (33) ="3. INX.1. INC. <B>" 

DAS (34) ="2.JC.3.5P.<F>.C,.<S>" 

DAS (35) ="2.5M.3.50P.<F>.M,.<S>" 

DAS (36) ="3.IMP.1.0P.<S>" 
DA$(37)="3.JNC.3.JP.<F>.NC,.<S>" 

DAS (38) ="3.JNZ.3.JP.<F>.NZ,-<S>" 

DAS (39) ="2.3P.3.30P.<F>.P,.<S>" 

DAS (44) ="3.JPE.3.JP.<F>.PE,.<S>" 

DAS (41)="3.JP0.3.3P.<F>.PO,.<S>" 

DAS (42) ="2.JZ.3.3P.<F>.Z,.<S>" 

DAS (43) ="3.LDA.5.LD.<F>.A, (.<S>.<F>.)" 
DAS (44) ="4.LDAX.1.LD.<D>" 

DAS (45) ="4.LHLD.5.LD.<F>.HL, (.<S>.<F>.)" 
DAS (46) ="3.LXI.3.LD.<B>.<E>.<S>" 

DAS (47) ="3.MOV.3.LD.<A>.<E>. <A>" 

DAS (48) ="3.MVI.3.LD.<A>.<E>.<S>" 

DAS (49) ="3- NOP. 9. NOP" 

DAS (56) ="3.O0RA.1.0R.<A>" 

DAS (51)="3.ORG.1.ORG.<S>" 

DAS (S52)="3.ORI.1.0R.<S>" 

DAS (53) ="3.OUT.5.0UT.<F>. (.<S>.<F>.) A" 

DAS (54) ="4.PCHL.2.JP.<F>. (HL) " 

DA$ (55) ="3.P0P.1.POP.<B>" 

DAS (56) ="4. PUSH. 1.PUSH. <B>" 

DA$ (57) ="3.RAL.G.RLA" 

DAS (58) ="3. RAR. @. RRA" 

DAS (59) ="2.RC.2.RET.<F>.C" 

DAS (6) ="3.RET.@. RET" 

DAS (61) ="3.RLC..RLCA" 

DAS (62) ="2.RM.2.RET.<F>.M" 

DAS (63) ="3.RNC. 2.RET.<F>.NC" 

DAS (64) ="3.RNZ.2.RET.<F>.NZ" 

DA$ (65) ="2.RP.2.RET.<F>.P" 

DAS (66) ="3.RPE.2.RET.<F>.PE" 

DA$ (57) ="3. RPO. 2. RET.<F>.PO" 

DAS (68) ="3.RRC.@.RRCA" 

DAS (69) ="3.RST.1.RST.<S>" 

DAS (7G) ="2.RZ.2.RET.<F>.Z" 

DA$(71)="3.SBB.3.SBC.<F>.A,.<A>" 

DAS (72) ="3.SBI.3.SBC.<F>.A,.<S>" 

DAS (73) ="4.SHLD.5.LD.<F>. (.<S>.<F>.) HL" 

DAS (74) ="4.SPHL.2.LD.<F>.SP,HL"” 

DA$ (75) ="3.STA.5.LD.<F>. (.<S>.<F>.) A" 

DAS (76) ="4.STAX.1.LD.<C>" 

DAS (77) ="3.STC.9. SCF" 

DA$ (78) ="3.SUB.1.SUB. <A>" 

DAS (79) ="3.SUI.1.SUB.<S>" 

DA$ (89) ="4. XCHG. 2.EX.<F>. DE, HL" 

DA$(81)="3. XRA.1.XOR. <A>" 

DAS (82) ="3.XRI.1.XOR.<S>" 

DA$ (83) ="4. XTHL. 2.EX.<F>. (SP), HL" 
7 INITIALIZE SYNTAX TREE STRINGS 
AS$="A ABBCCDDEEHHLLM 
BS="PSW AF B BC D DE H HL SP SP" 
C$="B (BC),A D (DE),A" 

D$="B A, (BC) D A, (DE)" 
eg=* 
G$="6 D9 1 8 2 1GH 3 

7 38H" 

* CREATE FILE NAMES AND BUFFERS 
PRINT: INPUT"ENTER 8889 FILE NAME 
OUT 254,94: *NORMAL SPEED 
OPEN "R",1,19% 

FIELD 1, 255 AS AS 
INPUT"ENTER Z8@ DISK FILESPEC 


CHL} * 


18H 4 26H 3S 28H & 36H 


"319% 


"3F9S 
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heen a NN EEE 


1448 
14768 
1486 
149% 
1599 
15164 
13526 
1536 
1548 
1559 
15698 
1576 
1586 
1599 
1696 
1619 
16298 
1636 
1548 
1465¢ 
1664 
1678 
1688 
1699 
1789 
1719 
1728 
1739 
1748 
17596 
1768 
1779 
1789 
1792 
1899 
1819 
1829 
1838 
184¢G 
1i8s¢ 
1869 
1879 
188¢ 
1899 
1999 
1916 
1929 
1938 
| 1949 
1956 
19698 
1978 
1989 
1998 
2898 
2810 
2828 
2O38 
28408 
2859 
2960) 
2879 
2989 
2898 
219d 
21198 
2129 
21368 
21498 
21568 
2166 
2176 
2189 
2196 
2299 


22108 
2229 
2238 





INPUT"ENTER EDTASM SOURCE FILE NAME (& CHAR. MAX) 
IF LEN(09%)>6 THEN PRINT"**x TOO LONG xa":GOTO 1464 
OPEN "R",2,F9% 
FIELD 2, 255 AS Z#% 
OUT 254,1 ° *** DOUBLE SPEED 
R=1:Fi=1:W=1:C9=0 
> FILL IN FILE NAME WITH SPACES IF NECESSARY 
K=LEN (09%) 
IF K=6 THEN 1599 
FOR I=K TO S 
09$=09%+" " 
NEXT I 
01$=CHRS (211) +09% 


":09% 


> GENERATE AUTO LINE NUMBERING & INC BY 19 
INPUT"START LINE NUMBERS AT ":C@:PRINT 
CG=CP-19:C1=999G9G+CH 
* INC LINE COUNT BY 19 
C1=C1+19:C3$="" 
> CONVERT TO ASCII NUMBER 5 PLACES 
C1i$=STRS$(C1) 
Ci$=RIGHT$(C1$,5)+" " 
? CONVERT TO TOKENS 
FOR I=1 TO 5 
C4$=CHRS (VAL (MID$(C1$,1,1)) +176) 
C3$=C3$+C4$ 
NEXT I 
C2$=C1$ 
C3$=C3$+" " 
PRINT"— ":C2$+" -— "; 


> GET NEXT 8989 INSTRUCTION 
Z1$=CHRS (91) 

Ris=" ‘a 

IF Fi>C9 THEN 4519 
R1i$=R1$+MID$(R$,F1,1) 

IF RIGHT$(R1%,1)=Z1% THEN 1969 
Fi=Fi+1 

GOTO i819 

Fi=Fi+1 
I$=LEFT$ (R1%, LEN (R1$) -1) 
PRINT I¢ 


> DO WE HAVE END OF TRANSLATION? 

IF I$<>"DEXIT" THEN 19868 

PRINT:PRINT"IF NOT END OF LISTING NOTE LINE NUMBER." 
INPUT"PRESS <ENTER> TO CLOSE FILE AND RETURN TO MENU"; X$ 
GOTO 4629 


7 EDIT LINE# IN AND CONVERT TO Z898 INSTRUCTION 
>~ CHECK FOR JUST COMMENT LINE 

IF LEFTS (IS, 1)<>"2: "THEN 2619 

0%=0%+1$: 02$=02%$+1S 

GOTO 24666 

GOSUB 48398 


> DO WE HAVE AN 8889 INSTRUCTION IN INSTRUCTION BUFFER? 
IF LEN(N$)=@ THEN 2668 
> YES! NOW SEARCH FOR MATCH 

GOSUB 4276 


GET NEXT STRING 

INIT OUTPUT STRING BUFFER 
0s= an a8 : 02?¢= as 08 
GOSUB 4939 


7 THERE WAS A MATCH, Z8%=8989@ CODE 


> NOW GET Z88 OUTPUT INSTR AND EDIT TO OUTPUT BUFFERS 
GOSUB 4389 
O0%$=03+X$: 0O2$=025$+XS 
FOR K=LEN(02%$)+1 TO 16 
02$=02$+" " 
NEXT K 
0%=0%$+CHRS (99) 


? 


7 NOW READ TRANSLATION SUBFIELDS 
IF L=@ THEN 2439 
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LECURE 

































You'll Rest Easier at Night 


You no doubt carry insurance 
to protect your computer from 
theft or damage. But what about 
your fragile data and programs? 
They aren't as easily replaced. 


Secure will password protect 
your CP/M® program files. It 
prohibits users without the pass- 
word from loading the program. 
This utility gives security to 
systems where many users have 
access to the same files. 


Programs may be protected in- 
dividually, each with its own 
password, or an entire disk may 
be included. 


For extra assurance, Secure’d 
programs which are damaged 
from hardware or operator error 
won't run. This reduces the 
chance of destroying data, such 
as accounting figures, by using 
a damaged program. 


Secure is data insurance with 
Only one premium, $59. Secure 
is available in many popular 
microcomputer formats. 


SOF IWATE 
SOF IWATE 
DIGITAL MARKETING 
DIGITAL MIARKETING™ 










2670 CHERRY LANE @ WALNUT CREEK @ CALIFORNIA © 94596 
(415) 938-2880 @ Telex 17-1852 (DIGMKTG WNCK) 


Secure is a trademark of Pyramid Systems, Inc. 
CP/M is a registered trademark of Digital Research, 
Inc. 
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8080 to Z80 Translator 


(Listing continued, text begins on page 60) 


4th, A New Software Development Tool 


4th is a very powerful, compact, 


interactive, software package which 2249 FOR I=2 TO L+1 
ere nStateG. Oa ASD Ue he aye 9 ee eet FOR DEFINITION MATCH AND TRANSFER TO 
provides the user a total software — 2276 ° DEFINITION PROCESS SECTION. 
development environment. 4th provides 2289 IF S$="<A>" THEN GOSUB 2899 
the hobbyist and the professional a 2296 IF S$="<G>" THEN GOSUB 3198 
“i 239G IF S$="<B>" THEN GOSUB 3159 
unique software development capability iit peo atin cpa wh See al coreg dee er ey 
with the following features: 2326 IF S%="<D>" THEN GOSUB 3236 
ied ! 2338 IF S$="<E>" THEN GOSUB 3279 
The 4th command line interpreter: ee IF S$="<F>" THEN GOSUB 331g 
Direct execution calculator mode 2358 IF S$="<S>" THEN GOSUB 3399 
Online module assembly/compilation 2366 j}* IS MATCH FLAG SET? 
; 23768 IF F=1 THEN 2419 
Interactive module execution é debug Batik. (ie Re ae. Wha En es 
Nested CP/M named source file 339g GOTO 2118 
loading 249 * YES WE HAVE A GOOD TRANSLATION 
CCP/utility functions (DIR, PIP, etc.) 2419 NEXT I:IF F<>1 THEN 2119 
2429 * ZERO ARRAY 
The 4th language: 2438 FOR I=1 TO 6:Si$¢(I)="":NEXT I 
‘ati 2449 * EDIT ANYTHING THATS LEFT 
ie cell at é ey iach 2459 IF T+i>LEN(I%) THEN 2569 
er , Moauiar structured coge 2466 FOR K=LEN(02%)+1 TO 29 
ala 2478 02$=02$+" " 
Top-down design with bottom-up 2489 NEXT K 
coding 2499 0%$=0$+CHRS$ (G9) +CHRS (G9) 
: 2599 FOR K=1 TO LEN(I$) 
Extensible: create new code & data 2519 TiS=MID$(I$,K, 1) 
types 2528 IF Ti#="3;" THEN GOTO 2549 
16 & 32-bit integers, variable strings rs egena Lesa : 
; =0$+ $ (I$, LEN(I$)—-K+1) 
IEEE single precision floating point | 2559 02$=02$+RIGHTS (I$, LEN(I$)—K+1) 
sin, Cos, Tan, Arc, Log, Exp functions 2548 GOTO 2648 
: 2570 * 
The 4th assembler: 2586 * NO FIND EXIT 
Fully structured with 8080 mnemonics pas Caer eee Ee een ae 
plus 780 extensions aioe Se ee MATCH* MSG AND DEC LINE COUNTER BY 19 
Assembler code allowed within a high- 2628 C1=C1-19 
level 4th module 2638 OF="":GOTO 24698 
: 264 * 
Easy Interfacing fo special hardware 2659 > EDIT LINE# IN AND OUTPUT THE TRANSLATED Z89 INST 
The 4th line editor: 2669 ceca he bh 
: mas we, +02 
Direct, fast source editing from 4th ile: china Goreme 13) 
CP/M named source modules (no 2698 L9=LEN(01%) +LEN(O$) 
screens) 278% IF L9<255 THEN 275¢ 
2719 LS8=255-LEN(01$) 
The 4th tracer/debugger: 2728 01$=01%+LEFT$(0$,L9) 
Run-time stack display & execution ee Oe ee 
trace 2758 01%=01%+0% 
Decompiles/disassembles all 4th code 2768 O$="":O28="" 
Interactive “patching” of compiled code 277% GOTO 1456 
oP > 
The 4th cross-compiler: : 3796 * PROCESS SINGLE REG SECTION "<a>" 
Generates compact CP/M COM files 2898 GOSUB 3478 
Allows generation of ROMable code 2819 * INIT PROCESS SECTION AND SET TO <A> TREE 
28298 HS=ASS 
Package: 190 pg manual & 8” SS/SD 2839 * INIT TREE SEARCH SECTION 
disk 2849 H2=8:T2=1 
Ene 2859 * CHECK IF WE PARSED THE WHOLE INPUT 8486 INST YET. 
Price: $89.95 + $5.00 handling 2868 * SEE IF IT SATISFIES THE 8888 DEFINITION 
Alabama residents add 6% sales 2879 IF T2>LEN(H$) THEN 395¢ 
tax 2888 * GO SCAN THE DEFINITION TREE FROM LEFT TO RIGHT TO 
Terms: COD, money order, check See 
. . — 
License required : 2919 * DOES IT MATCH THE SUB ELEMENT WE HAVE? 
No royalties for derivative software 2928 IF M$=N$ THEN 2999 
2939 * NO IT DOES NOT, SO SKIP THE NEXT Z8 SUB TRANSLATION 
United Controls Corp., PO Box 4620 shar Bi TRY FOR ANOTHER 8886 SUB DEFINITION MATCH. 
Huntsville, AL 35802 (205) 837-6144 2968 GOTO 2879 
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2978 * WE HAVE AN 8989 SUB DEFINITION MATCH. NOW GET THE 


2989 ” Z88 TRANSLATION AND EDIT IT INTO THE OUTPUT BUFFER 0$. 
2999 GOSUB 3829 0 
3868 0S=0S+MS: 02$=025+MS 


3919 * SET MATCH FLAG 
3829 F=1 


3G3G RETURN Level 2 

3849 * SET NO MATCH FLAG 

3059 F=d 

3968 RETURN for the IBM-PC 
3B7B ” . 


349883 * PROCESS "<G>" DEFINITIONS 
3998 * GET NEXT INPUT SUB FIELD 
3188 GOSUB 34796 


21410.” SET TO <G> DEFINITION TREE 





3128 H$=GS ' ; 
3136 GOTO 2846 a Multitasking oe, 

3149 * PROCESS "<B>" DEF High performance multi-tasking OS. Any 
3158 GOSUB 3479 number of background tasks. Concurrent 
oe id Dice onkes operation of monochrome and color 
3189 * PROCESS "<C>" DEF monitor. Concurrent printer operation. 
3198 GOSUB 3479 

328G H$=CS : i 

3219 GOTO 2849 @ Floating-Point 

3229 * PROCESS "<D>" DEF 8087 Math Co-processor support, including 
saa senha ited complete 8087 Assembler plus high-level 
cosa GOTO 2840 command set for floating point and integer 
3348 * PROCESS "<E>" DEF arithmetic and transcendental functions. 
3278 GOSUB 3479 

3289 H$=ES eee 

a = Compatibility 

Fa " ; ae 

3396 * PROCESS "<F>" DEF IBM DOS file interface utility allows access 
331G X$=S1H(1+1) to files created under IBM DOS with 
3326 * JUST EDIT NEXT Z88 TRANS ELEMENT TO OUTPUT BUFFER FORTH’s improved performance and 
3338 0F=0$+XH$: O2$=02$+XS power. 

3349 * SET MATCH FLAG 

3358 F=1 

3369 I=I+1 - 

Pe en @ On-Line Documentation 
3386 * PROCESS "<S>" DEF as well as over 700 pages of supporting 
3298 GOSUB 3479 documentation including Starting FORTH 
34GG F=1 


by Leo Brodie and 360-page User's 


3418 IF LEN(NS)=9@ THEN F=9 Manual. 


34248 0%=0%$+NS: 02$=025+NS 
34398 RETURN 


3448 it es 

3459 * SCANNER RETURNS N& @ Turnkey-compiler 

pics ae SOG Pe TASES Ste areeent, Pare tees Utility for making binary turnkey applica- 
Pe * _ . 

3498 N¢="" tions. Such programs can be resold 
3496 Hi=H without license fee under specific 
3596 * SCAN FOR NEXT 8988 SUB FIELD STARTING WITH FIRST conditions. 


so1f ” NON-BLANK. 

3528 FOR J=H1 TO LEN(I$) 
S5SB * GET NEXT CHAR 
3549 7 IS IT A BLANK? 


@ A Professional quality Forth 
3550 IF MID$(I$,J,1)<>" " THEN J=LEN(I$):GOTO 3599 designed by FORTH INC at only $295. 


3568 7 YES! GO GET NEXT CHAR 

3379 H=H+1 

3588 T=T+1 

3599S NEXT J 

3699 * WE SHOULD BE POINTING TO START OF 8989 SUB FIELD 


Its the Real Thing 


; 3618 H1i=H 
3629 * SCAN UNTIL WE GET A TERMINATOR OR END OF LINE. 7 it 
3638 * ("BLANK" AND "," ARE TERMINATORS) Distributed by 


3649 FOR J=H1 TO LEN(IS$) Fo b Technolo 
365a > GET NEXT CHAR rt gy 
3669 7 IS IT A BLANK? | 

3478 IF MID$(I$,J,1)=" " THEN GOTO 3799 432 15th Street m Santa Monica, CA 90402 
3689 doe +e © ee: a he 


3696 IF MID#(I$,J,1)="," THEN GOTO 3779 ( ) A 
3783S 7 NO! ITS NONE OF THE ABOVE SO EDIT THIS CHAR INTO 21 3 372 8493 
3718 e INSTRUCTION BUFFER. Call or write for details. Dealers inquiries invited. 


372G N$=NS+MIDS(I$.J5, 1) Ordering info: check, credit card or COD 
37398 T=T+1 he: California residents: add 642% sales tax. 


374G 7 GO GET NEXT CHAR (Continued on next page) 
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CBASIC* USERS 


Now it is possible to recover a 
“BAS” from an “.INT” file. Send me 
aSSSD 8” CP/M * diskwitha “INT” 
file on it: | will return it with the 
reconstructed “.BAS” file added. 
(Multiple “INT” files on a disk are 
allowed, not to exceed 48K per 
disk.) 


Cost is $40. per “.INT” file. Dis- 
count of 10% for 5 to 9, 15% for 10 
or more, “.INT” files shipped as a 
single order. 


MC/VISA HONORED @® N.J. RESIDENTS ADD 5% 


PETER INGERMAN 
40 NEEDLEPOINT LANE 
WILLINGBORO, N.J. 08046 


* CBASIC and CP/M are trademarks of 
Digital Research, Inc. 
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LSI-11 USERS 
CP/M ON YOUR Q-BUS 
FOR $695 - CP/M 2.2 
INCLUDED 


THE Hy DISK Z-11™ PUTS THE 


PLY PLUG IN THE DUAL WIDE 
Q-BUS BOARD, AND BOOT YOUR 
RX01 OR RX02 INSTANTLY! 


© ZR0ACPU-4MHZ—t™” 
INSTANT INSTALLATION 
GUARANTEED. 
NO EFFECT ON NORMAL LSI-11 
OPERATION a 
USES EXISTING BOOTSTRAP 
HEATHKIT H-11 COMPATIBLE 
REQUIRES NO LSI-11 OPERATING 
SYSTEM SUPPORT 4 
SUPPORTS SERIAL AND PARALLEL- 
LP | 
MANUALS, SOFTWARE, AND CP/M 
LISCENSE, ALL INCLUDED. — 


ORDERS RECEIVED BEFORE MAY 1, 1983 INCLUDE 
FREE CP/M SOFTWARE INDEX 


Hy DISK - 4540 KEARNY VILLA 
ROAD - SUITE 204 - SAN DIEGO 
CALIFORNIA 92123 

PHONE: 619/277-8753 
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8080 to Z80 Translator 


(Listing continued, text begins on page 60) 


3758 
3746S 
3779 
3788 
379 
388g 
3819 
3828 
3836 
384g 
38598 
3868 
3878 
3888 
3898 
3988 
3918 
3928 
3938 
394G 
3958 
3968 
3978 
39a 
3998 
4GGG 
4g1¢ 
AD2S 
4938 
ADAG 
49508 
494G 
4B7B 
4998 
4596 
4198 
4118 
4129 
41308 
4146 
4159 
4149 
4178 
4189 
4198 
4285 
4219 
4228 
42368 
424G 
4259 
4268 
427 
4286 
4298 
4396 
4318 
432 
4338 
434G 
4350 
4349 
437 
4389 
4399 
4499 
4419 
4429 
443g 
4449 
4459 
4469 
4479 


NEXT J 

RETURN 

IF LEN(N$)=@ THEN T=T+1 
IF LEN(NS)=8 THEN N=", " 
RETURN 


* SCAN THE TREES 
H2=T2 
Ms= a8 48 
H3=H2 
FOR J=H3 TO LEN(H$) 
> TAB TO NEXT NON-BLANK CHAR 
IF MID$(H$,J,1)<>" "THEN J=LEN(H$):GOTO 3999 
H2=H2+1 
T2=T2+1 
NEXT J 
H3=H2 
7 GET NEXT SUB DEF OF 8986 INSTRUC. 
FOR J=H3 TO LEN(HS) 
7 HAVE WE A BLANK YET? 
IF MID#(H$,J,1)=" " THEN J=LEN(H$):GOTO 3996 
> NO! THEN ADD THIS CHAR 
M$=M$+MIDS (HS, J, 1) 
T2=T2+1 
NEXT J 
RETURN 


* SECTION TO EDIT A LABEL AND OUTPUT Z88 TRANSLATION 

H=8: T=1 

* IS THERE A CHAR IN COL#17? 

IF LEFTS(I$,1)=" “ THEN 4179 

H=1 

FOR K=1 TO LEN(I$) 
7 GET NEXT CHAR 
> IS IT A BLANK 
IF MIDS$(I$,K,1)=" “ THEN K=LEN(I$):GOTO 415¢ 
* NO! NOT A BLANK THEN MUST BE PART OF LABEL FIELD. 
7 SO EDIT IT INTO OUTPUT BUFFER 
O0$=O0$+MIDS$ (I$, K, 1) s:O2$=025+MIDS (IS, K, 1) 
T=K+1 

NEXT K 

* TAB TO COL 8 FOR PRINTOUT 

FOR K=LEN(02%)+1 TO 8 
02$=02$+" " 

NEXT K 

7 INSERT TAB INTO OUTPUT BUFFER 

0%=0%3+CHRS (59) 

7 NOW SCAN FOR THE 88898 INSTRUC. 

GOSUB 3479 

RETURN 


* BINARY SEARCH THROUGH DATA STATEMENTS FOR MATCH 
U=83:L=1 

F=INT((L+U)/2) * CALCULATE FENCE 

N=VAL (LEFT$(DAS(F),1)): Z8$=MID$ (DAS(F) ,3,N) 

IF Z8$=N% THEN RETURN 

IF L>=U THEN 2599 

IF Z8$>N% THEN 43492 

L=F+i1:GOTO 4289 

=F-1:GOTO 4289 

GOTO 2598 * NO MATCH 


* SUBROUTINE TO READ THROUGH ARRAY DATA 
L=VAL (LEFT (DAS(F),1)):N1=L+4 
L=VAL (MID (DA$(F).N1,1)) 
FOR I=1 TO L+1 
FOR J=1 TO & 
SiS=MID$ (DAS(F) ,Ni+1+J, 1) 


IF Sis="." THEN Ni=Ni+J:J=6:GOTO 4459 
S1$(1I)=Si$(I)+S1i$s 
NEXT J 
NEXT I 
X$=S1$(1) 
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4489 
4499 
4599 
45198 
4529 
4538 
4546 
4558 
4569 
4578 
4589 
4599 
4569 
4619 
4629 
4634 
4649 
46508 
4669 
4673 
45689 
4696 
4789 
47128 
4729 
47308 
4749 
47308 
4769 
477@ 
4788 
479 
4886 
4819 
4828 
4839 
4849 
4859 
486 
4873 
4889 
4899 
4999 
49198 
4929 
4939 
4949 
49358 
4969 
4973 
4986 
499 
3BDD 
3819 
3H2D 
IIB3B 
784G 
3858 
2946S 
997 
3989 
IBID 
3196 


BUFFER SPACE AND PRODUCE ERROR! ! 


You 
3119 
3129 
3139 
3149 
3159 
31608 
3179 
3188 
3199 
I2GS 
3219 
3228 
3239 
532468 


RETURN 
> GET RECORD FROM DISC 
R$= aa 48 

OUT 254.9 
GET 1,R 
R$=AS 

Fi=1 

R=R+1 
C9=LEN (R$) 
ouT 254, 1 
GOTO i888 
? CLOSE FILES 

IF LEN(01$)<% THEN OUT 254,9:GOTO 4479 
01$=01%+CHRS (26) 

LSET Z$=01$ 

OUT 254,a 

PUT 2, 

CLOSE 1:CLOSE 2 

GOTO 336 


**a% DOUBLE SPEED 


* PUT RECORD ONTO DISC 
LSET Z$=01$% 

OUT 254,9 

PUT 2,W 

W=W+1 

0i%3=" u 

*OUT 254, 1 

GOTO 2759 


2 
? 


* SECTION TO CREATE AN 8986 SOURCE FILE 


? 


CLEAR 9:CLEAR 159@:CMD"0" ’ MAKE SURE BUFFER AVAILABLE 


R=1:AsS="" 

CLS:PRINT" * 88890 CREATE PROGRAM x" 
PRINT 

PRINT" TYPE 8989 SOURCE IN FOLLOWING FORMAT: " 


PRINT" LABEL — OPERATION — OPERAND —- COMMENT" 
PRINT" EXAMPLE: START LXI H,9491H ;LOAD ADDRESS 
PRINT" XRA A ; CLEAR A REGISTER" 

PRINT" ONLY ONE SPACE IS REQUIRED BETWEEN ENTRIES." 
PRINT"A LABEL OR LEADING ’;” SHOULD NOT START WITH" 
PRINT" A SPACE, AN OPERATION SHOULD." 

PRINT"AN ’N’? AFTER THE *SURE” WILL CANCEL ENTRY,” 
PRINT" AN <ENTER> ADDS ENTRY TO FILE." 

PRINT’ TYPE *@EXIT*. (TO Exit 10. NEM” 


PRINT"A BUFFER FROM 215 TO 255 CHARACTERS LONG IS" 
PRINT" SAVED TO DISK." 

PRINT: INPUT"ENTER 8889 OUTPUT FILE NAME 
PRINT “OUTPUT FILE *"3RS3 "" 
ASS$="VDEXIT"+CHRS (91) 


"sR 
IS ON DRIVE #6" 


OPEN "R",1,R% 
FIELD 1,255 AS AS 
PRINT 

X $= ap 08 

PRINT" "+ CHRS (92) 
LINE INPUT"--> "; AIS 


B=LEN(A1%) +1:C=LEN(A2$) 
IF B+C>255 THEN PRINT"NEXT ENTRY WILL EXCEED 
SAY °N’! 
HAVE ONLY": 255-LEN(A2%);" CHARACTERS LEFT!" 
INPUT" SURE": X% 
IF X$="N" THEN 5869 
A1$=A1$+CHRS (91) 
=LEN (A2$) 
IF A>215 THEN 5199 
A2$=A2$+A1$ 
IF A1$=A3% THEN 5299 
GOTO 5968 
IF LEN(A1$)<1 THEN 5249 
LSET AS$=A2$ 
PUT 1,R 
R=R+1 
IF A1$=A3$ THEN 5279 ELSE 5259 


Aig="" (Continued at right, top of page) 


aa ccc 
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var Pacer 
3268 
3278 


ALS=A1S 
GOTO 38698 
CCOSE 1 
3288 GOTO 3328 
3298 END 

SSH * 
3318 * ERROR TRAP 
wo28 OUT 254, 
33538 RESUME 

T54G ” 


33598 * END OF PROGRAM 


End Listing 


Basic 
Compiler 
For CP/M’ 
Only $99. 


Assembler and link editor included. 
Requires CP/M® 2.0+ and 32k+ 
3740 8” or Apple® 5" 16-sector 

disk formats only. 


Send your check or money order to: 


JV Software 
P.O. Box 684 
Newton, MA 02162 


Mass. shipments add 5% sales tax 
Free brochure available 


Manual only — $15 Refundable with 
software purchase. 


CP/M is a Trademark of Digital Research, Inc 
Apple is a Trademark of Apple Computer, Inc 





Circle no. 64 on reader service card. 


All CPMUG* Public Domain 
Software available in 5-% inch 
format for: ALTOS, EAGLE 
Il, NEC-PC-8000, AND 
NORTHSTAR HORIZON. 


$10.00 per volume includes postage. 
$10.00 for catalog listing on diskette. 


CHECKS/MONEY ORDERS AND 
MASTERCARD/VISA ACCEPTED. 
California Residents Add Sales Tax 


Tatos 
Data 
Logics 


3722 E. BROADWAY 
LONG BEACH, CA 90803 
(213) 438-3077 


* Trademark CP/M** Users Group 
**T rademark Digital Research, Inc. 
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DR. DOBB’S CLINIC 


by D. E. Cortesi 





Disk Drives Us Crazy 


In February we presented Loren 
Amelang’s request for explanations why 
perfectly good diskettes could come up 
with read errors after being stored for a 
while. David Oster (whose letterhead pro- 
claims The People’s Republic of Santa 
Monica, its motto “Unity and Breakfast 
for All’) suggests two ways. First, he 
points out, drives vary with time. “‘Apple 
drives, in particular, seem to need fre- 
quent realignment. The disks you read 
and write every day change with the drive, 
but the drive changes enough that stored 
disks stop working.”’ 

Amelang also wondered why one 
program could always read the bad disk- 
ettes when others couldn’t. Oster has a 
comment on this, too. 

‘When I had this problem it turned 
out that the programs were accessing the 
disk in very different ways. When the 
program that failed wanted to go to an 
inner track like track 70, it would tell the 
controller “‘go to track 70.’ When the 
program that worked wanted to go there, 
it told the controller “go to the next 
track,’ 70 times. If you tell a disk con- 
troller to step once, it just does it. If 
you tell it to seek a long way, it runs an 
internal subroutine that does a fancy 
acceleration-deceleration of the head 
carriage. Only when it gets there does it 
begin looking for a track. If the disk is a 
slightly different shape than the control- 
ler expects, the position error in going 70 
tracks is 70 times as large as the position 
error from stepping one track. 

“I had this problem because my drives 
weren’t properly cooled. There was a 
nice big fan in the cabinet, but there were 
a couple of unused connector holes and 
all the air flowed through them and not 
enough of it flowed over the electronics. 
I replaced a few heat-damaged chips, 
covered the extra holes with tape, and 
haven’t had a problem since.”’ 


OK, those are reasonable propositions 
(especially the part about air flow), but 
they sound to us as if they would be 
hardware-specific. For example, accord- 
ing to its data sheets, the Western Digital 
FD1793 controller (used in the popular 
California Computer Systems 2422 board) 
performs a seek from track zero to track 
70 by doing 70 ‘“‘step-in’ operations. 
And the 1793 doesn’t make any adjust- 
ments on the resulting position; it just 
assumes that a step is a step. 

There must be a lot more things that 
could be said about Loren Amelang’s 


problem. Another open problem is that of 
Ernest Knipp, whose Z80 system occasion- 
ally goes catatonic. We look forward to 
more contributions on both these topics. 


Counts and Measures 


In that February issue, we gave Burks 
Smith room to speak out on the use of 
floating-point arithmetic, and its lack of 
precision as usually implemented. The 
heart of his presentation may have been 
his statement that “If something called 
‘double-precision arithmetic’ can’t take 
ten percent of a dollar and get exactly ten 
cents, there shouldn’t be any excuses. 
The answer is just plain wrong!’’ Oster 
has a comment on that. 

“Smith has confused counts with 
measures. When you say you have ten 
dollars, you are saying you have 1,000 
pennies — a count. When you say you 
have ten gallons of water, you are not 
saying that you have a certain number of 
water molecules, but making a statement 
about a physical quantity that you only 
know to a certain precision — a measure. 
Floating-point numbers were designed 
for calculation with measures; integers 
were designed for calculation with counts. 

“So, if something called ‘double- 
precision arithmetic’ takes ten percent of 
a dollar, it is right as long as its answer 
lies between 0.999. ..9 and 1.000...01. 
It may not be what you want, but it is 
what that arithmetic is designed to do. 
There are some experimental computer 
languages where all numbers input to a 
program must be labeled with whether 
they are measures or counts, and if mea- 
sures, how accurate they are and what 
units they are in. The results of the pro- 
gram are automatically expressed in 
appropriate units and you are told how 
precise the results are.” 

Distinguishing “‘counts’”? and ‘‘mea- 
sures’’ certainly helps clarify the problem 
in our mind, at least. On reflection, it 
seems that the distinction we try to draw 
between “‘commercial’’ and ‘‘scientific”’ 
applications is based on which kind of 
numbers is preponderant in each. What 
we call “‘commercial’’ work deals mostly 
with counts; “‘scientific’? computing deals 
mostly with measures. Think about it. 

But there is more to be said on this 
topic as well, and your contribution is 
still welcome. We asked other questions 
in that February column. CBASIC uses a 
BCD representation for float numbers that 
has about the same precision as MBASIC’s 
binary one — has anyone really compared 


the results of the two on the same prob- 
lem set? We also wondered if there were 
any ratios that have a finite representa- 
tion in binary but not in decimal (as there 
are decimal fractions that can’t be repre- 
sented in binary). Oster’s answer is “‘no”’; 
can you figure out what leads him to this 
conclusion? 


Spotting DDT 

Back in October of 1982, we showed 
one way to get DDT to load in such a 
way that the resident parts of CP/M were 
still visible and the CCP wasn’t overlaid. 
Aubrey Hutchison has another way. If 
you know where you want DDT to load 
itself, the most direct way is to alter its 
code. Use DDT to modify DDT.COM. 
Look at the instructions around 0150h; 
you should find 


0150 SUB B 
0151 MOV D,A 


If you replace those two instructions with 
the single instruction 


0150 MVI D,xx 


you will have a version of DDT that will 
always load itself at xx OOh in storage. 


Fun With Your New BIOS 

We’re working at bringing up CP/M 3 
(or “CP/M Plus,” as Digital Research 
wants to call it) on our own system. The 
first step is to get the present BIOS to 
assemble with a relocating assembler. 
We’re using RMAC and LINK80 from 
Digital Research, mostly because RMAC 
allows the long, long labels that we like to 
use. 

Rather than do a whole lot of new 
code, then debug it while learning a new 
operating system, we thought we would 
first make the new BIOS work with CP/M 
2.2. Then we’d enhance it, still on 2.2, 
and finally make the few changes needed 
for CP/M 3. One of the enhancements we 
want to make while still running the old 
operating system is to split the BIOS into 
a fixed part and a banked part. The more 
complicated disk functions go into the 
banked BIOS; the serial I/O and the trivial 
disk functions like “‘set track”? remain in 
the fixed part. 

With the complicated functions set 
aside in banked storage, we can really let 
them spread out and get competent. For 
example, we plan to display disk error 
messages in detail, in English. That’s 
something there just isn’t room for when 
the whole BIOS has to be squeezed into a 
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couple of kilobytes. Another planned en- 
hancement is the use of separate read and 
write sector buffers for each physical 
drive, so when programs alternate reading 
and writing they won’t force the same big 
sectors to be read over and over. Still 
another is the mapping of four logical 
drives onto two physical ones, as is done 
in the IBM PC. Doing this and maintain- 
ing the full generality of use for all four 
drives turns out to be trickier than we 
thought, but it’s possible when a few hun- 
dred additional bytes don’t matter. 


Fun With LINK80 


OK, so you plan a much larger BIOS. 
Obviously you don’t want to keep it as 
one big assembly; it’s too difficult to edit 
and too tedious to assemble that way. 
You want the BIOS broken into lots of 
small modules, each with a well-defined 
set of functions (we ended up with a 
dozen, five fixed and seven banked). It’s 
one of the great advantages of having a 
linker that you can do that easily, right? 

Wrong. It isn’t easy at all with LINK- 
80, because a two-part BIOS is not the 
sort of program it was designed to link. It 
doesn’t help that the manual addresses 
the use of the program only as an adjunct 
to PL/I-80 and doesn’t explain it as a 
general tool. We managed it in the end 
and these are some of the things we 
learned along the way. 

First, the ““L” option determines the 
origin of the linked program and the 
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starting point of the linker’s output file. If 
you were linking a (non-banked) BIOS that 
ran at F200h, you would do it like this: 


LINK80 BIOS=modules. . .[LF200] 


That produces BIOS.COM, containing 
just the code of the given modules, linked 
to an origin of F200h. The same effect 
can be had with the “P” option, but the 
resulting file contains enough binary 
zeroes to fill storage from 0100h to the 
program origin — about 61K of them in 


the example. We can’t figure out what the 


*“P”’ option is good for. 

Next, the ““D” option determines the 
origin of the data segments of the linked 
modules, while the “L” option sets the 
origin of the code segments. We coded 
our banked BIOS so that the banked mod- 
ules consist entirely of data segments 
and the fixed modules are entirely code 
segments. We casually assumed that a 
command like 


LINK80 BIOS=modules. . . 
[D4000, LF200] 


would link the banked parts to an origin 
of 4000h and the fixed parts at F200h. 
It doesn’t. It produces a file that contains 
only the code segments, linked to F200h. 
The data segments vanish. In fact, LINK80 
will never write any output that would 
fall below the ‘‘L” load-point, whatever 
segment it comes from. The linking is 
done correctly in that external references 
have correct values, but the data they 
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point to is omitted from the file if it falls 
below the “‘L” address. 

That’s just as well, because we weren’t 
thinking too clearly when we devised the 
command above. What we really want is 
two separate files, FIX.COM and BNK. 
COM, the first containing the code that is 
to go into high, global storage and the 
second containing code to go into the 
banked storage. That implies that LINK80 
has to process each group of modules sep- 
arately. But each section has references to 
public labels in the other. That implies 
that LINK80 has to process all modules 
together in one run so that it can resolve ' 
the interlocking references. If this were a 
movie, our computer would be saying, 
“Contradiction, does not compute” in a 
hollow voice. CP/M 3 is supposed to have 
a command that does all this, but we are 
working under CP/M 2.2. 


Enter the Overlay 


Just as we were about to give up, we 
found the appendix on overlays in the 
LINK80 manual. They aren’t explained 
very well, presumably because users of 
PL/I-80 aren’t supposed to be concerned 
about the details. But in fact, LINK80’s 
overlay feature can give us just what we 
need for the present problem. 

To LINK80, an overlay is another 
program, one that just happens:to be 
linked at the same time as some main pro- 
gram. The syntax that specifies an over- 
lay is identical to the syntax for a main 
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program, but given recursively in paren- 
theses. The command lines could get out 
of hand, except that they can be continued 
by appending an ampersand. Here is how 
a PL/I user might link a program with 
overlays: 


LINK80 ROOT=modules... 
(OV1=modules...) 
(OV2=modules... 

(OV2A=modules... ) 
(OV2B=modules.. .) 


That command would create five output 
files: ROOT.COM, OV1.OVL, OV2.OVL, 
OV2A.OVL, and OV2B.OVL. Each over- 
lay file is a separate link, composed of the 
modules that make it up linked to an ori- 
gin that is the end of its root module. 
OV1 and OV2 will be linked to run when 
loaded at the byte after ROOT.COM; 
OV2A and OV2B will be linked to run at 
the byte following OV2. All the link op- 
tions apply, independently, within the 
parenthetical specification of an overlay. 
The code in an overlay may refer to 
public labels in its root module, but not 
vice versa. That’s all right; there is an es- 
cape. A more serious problem is that 
LINK80 insists on adding two external 
references to a root program, “?OVLAY” 
and ‘“?OVLAO.” These presumably mean 
something to PL/I, though we don’t see 
why the compiler couldn’t generate them 


_ B® RH & & 


FORTH-32" 
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hy use a language which limits your program size to 


in the usual way. They have to be sup- 
plied because there won’t be any output 
unless all external references are resolved. 
We resolve them by writing and assem- 
bling FAKE.ASM as follows: 


CSEG 

PUBLIC ?O0VLAY,?0VLAO 
2OVLAY: 
20VLAO: 

END 


Now we can create FIX.OVL and 
BNK.OVL, the two sections of our BIOS, 
with all external references resolved and 
all the code located where we want it. 
First, FIX .OVL: 


LINK FAKE & 
(FIX =all-12-bios-modules & 
[D4000,LF200] ) 


Because it loads at F200h, none of the 
bank-BIOS modules will be included in 
the file FIX.OVL. However, their proper 
addresses will be filled in where needed. 
The banked section is trickier: 


LINK FAKE ,all-fixed-modules & 
[LF200,$0Z] & 
(BN K=all-banked-modules & 
[L4000,$OA] ) 


Here we let LINK80 think that there is a 
root module, loading at F200h, which 
contains the fixed parts of the BIOS. The 
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““$OZ”’ switch tells it not to produce any 
output for this “root” module. Then we 
tell it to make BNK.OVL, composed of 
our banked modules and loading at 
4000h, the base of our banked BIOS. The 
“SOA” switch says this file is to be writ- 
ten. All the places in the banked code 
that refer to fixed code will be filled in 
with the proper addresses. 

And that is how one treads cautiously 
around the pitfalls and potholes of RMAC 
and LINK80 to get a two-section BIOS 
written and linked. The result is two files 
that contain the code, ready to be loaded 
into storage in their correct locations and 
banks. How these parts are put together 
with the CCP and BDOS of CP/M 2.2 
and written onto the system tracks of a 
diskette, and how during cold start they 
get loaded and located in storage, is at 
least two other stories. But arranging the 
link was the highest hurdle we had to cross. 


Perhaps that wasn’t the most fasci- 
nating item you’ve read in this column. 
Well, you’ve nobody to blame but your- 
self. In the absence of questions and dis- 
coveries from readers, our only source of 
material is the top of our desk. BB, 
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conversations! One copy of the Transporter (on the 
sending machine) will transfer any file from one 
computer to another. It requires matching ports 
(serial or some parallel) or modems. Detailed 
manual included. The Transporter $69.50. 


Pascal Made Easy 
"A Primer on Pascal for CP/M Systems" 


Full of examples and suggestions to make learning 
Pascal easier. Contains both a disk and a detailed 
manual with a glossary and an error-correcting guide. 
Pascal Primer-5-1/4" $89.50 -8" $79.50 

The Pascal Primer is for either Pascal/M or MT +. 
The programs are from Grogono’s "Programming in 
Pascal" and Kernighan & Plauger’s "Software Tools 
in Pascal", $20.00 each (not included). 


Disk formats include: 8", Apple CP/M, NorthStar, 
Osborne, KayPro, and Otrona. 
All U.S. orders are postpaid. Catalog on request. 


Circle no. 19 on reader service card. 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 








CP/M 83 Show 


The recent CP/M 83 exhibition in 
San Francisco drew over 45,000 attendees, 
a degree of success surprising even to its 
sponsors. Browsing through the booths, I 
was impressed with the very rapid shift 
towards 16-bit microprocessors that has 
become evident over the last year. Almost 
every new machine and application pro- 
gram of any significance was based on an 
8086 or 68000, though Olivetti was also 
present, valiantly trying to rescue the 
Z8000 from oblivion. There was almost 
nothing worth mentioning in the way of 
new 8-bit hardware or software, with one 
exception: several manufacturers intro- 
duced super-miniaturized Z80 CP/M 
systems in which the whole system board 
and a slim-line 5” disk drive fit into a 
chassis smaller than a shoebox. 

Digital Research itself displayed 
many new products at the show, some of 
which indicate marked shifts in its corpo- 
rate goals. CP/M-68K was shown running 
on five different machines including the 
Sage and Compu-Pro 68000- based micro- 
computers. It comes with a complete set 
of software development tools including 
an assembler and a full-blown C compiler. 
Reportedly CP/M-68K will eventually be 
able to execute as a task under UNIX, 


Description 


Command 


AR68 
run-time library 


AS68 68000 assembler 

a C language compiler 
CP68 
DDT 
DIR 
DIRS 
DUMP 
ED 
ERA 
LO68 


Line editor 
Erase file(s) 
Linker 


C language preprocessor for macros 
Interactive 68000 debugger 

Display disk file directory 

Display directory of “‘system’’ files 
Display contents of a file in hex and ASCII 


giving its users the best of both worlds. 
The same C compiler will be available 
on the 8086/88 in April 1983. Digital 
Research also announced that all of its 
future operating systems products and 
language compilers will be written in C! 
Evidently DRI’s previous flagship com- 
piler, PL-1 subset G, is being relegated to 
the wings forever. 

Also announced was a Digital Re- 
search version of “‘plain’? CP/M-86 for 
the IBM Personal Computer, including 
printer spooling and the new graphics 
support nucleus GSX, for only $60.00. 
DRI has been discontented with IBM’s 
half-hearted support and marketing of 
CP/M-86, and is now showing more con- 
vincing determination to capture some of 
the enormous (and affluent) PC user base 
from Microsoft. This is good news for PC 
owners, since they can now readily afford 
both PC-DOS and CP/M-86 and there- 
fore be much more flexible in their appli- 
cation software purchases. But such a 
drastic drop in price will surely raise ques- 
tions in the minds of CP/M owners of 
other machines, who must still pay $150 
or more for their operating systems. 

The most startling development of all 
was the Digital Research display of an ex- 
tended LOGO language for the IBM PC. 


Archive utility, stores object files in the C 


Offset 


0000-0003 
0004-0007 
0008 -O00B 
000C-000F 
0010-0013 
0014-0017 
0018-001B 
001C-001F 


A seminar on the new product was given 
by Gary Kildall himself, who described it 
as having all the benefits of LISP but with 
a “user-friendly” programming environ- 
ment. Life is certainly full of surprises. 


Intel 8087 News 


Hudson Associates has announced an 
8087 piggyback board for the Godbout 
8085/8088 Dual CPU. This will be a boon 
to those of you who wish to take advan- 
tage of the 8087 for fast floating-point 
math but don’t want to trash your present 
CPU board for a new $750 Godbout 
8086/87 board. The procedure for instal- 
ling the piggyback board is very simple: 
remove the 8088 from your present CPU 
board, plug the piggyback board into the 
8088’s socket, then plug the 8088 and 
8087 chips into the piggyback board. The ' 
system should then boot up and run just 
as before. 

This piggyback board will probably 
also work on other 8088 CPU boards 
such as the Lomas LPD-88. The main 
consideration is whether adequate power 
is delivered to the 8088’s socket to supply 
both processors. The 8087 draws consi- 
derably more power (up to 475 mA) than 
the 8088 (340 mA). We have used a simi- 
lar hand-wired piggyback board to add an 


Contents 


Lowest address of Transient Program Area 

1 + highest address of TPA 

Starting address of the Text Segment 

Length of Text Segment (bytes) 

Starting address of the Data Segment 

Length of Data Segment 

Starting address of the bss (uninitialized data) 
Length of bss 


0020-0023 
0024-0024 
0025 -0037 
0038 -005B 
00SC-007F 
0080-00FF 


Length of free memory after bss 

Drive from which the program was loaded . 
Reserved 

2nd parsed FCB from command line 

lst parsed FCB from command line 
Command tail and default DMA buffer 


NM68 
PIP 


Symbol table display utility 

Transfer, concatenate, and/or filter files 
between various peripheral devices 

Relocate a command file to an absolute address 
Convert command file to Motorola S-record 
format 

Print the size of a command file 


RELOC 
SENDC68 


SIZE68 


Table 2. 
Program Base Page Format for CP/M-68K 


Table 1. 
CP/M-68K Commands and Utilities 
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8087 to the NEC 8086-based Advanced 
Personal Computer without any problems. 
Hudson Associates may be contacted at 
P.O. Box 2957, Santa Clara, CA 95055. 

A LINK-80-compatible run-time li- 
brary for 8087 support has been released 
by Avant-Code, 1508-A Oxford Street, 
Berkeley, CA 94709. The library costs 
$200 and may be used with Fortran-80, 
Bascom-80, Cobol-80, or Macro-80. Of 
course, you need to run the linked pro- 
grams on asystem containing the Godbout 
Dual CPU, since the 8088 must take over 
control in order to perform the math 
operations on the 8087. 


Preview of CP/M-68K 


The information presented here is 
abstracted from the new CP/M-68K 
documentation set which was recently 
released. CP/M-68K is logically symmet- 
rical to the CP/M-80 and CP/M-86 oper- 
ating systems, with enhancements to sup- 
port the 16-megabyte memory addressing 
space of the 68000 microprocessor. The 
disk file structure is exactly compatible 
with the 8080 and 8086/88 versions, and 
supports a maximum of 16 drives with up 
to 512 megabytes per drive. 


RESET AND RUN 
COMPLETE S-100 SYSTEMS 


FEATURING: 


Integrand Enclosures 
Mitsubishi 8” Drives 

Ampex H.D. Options 
CP/M © Installed 


ACCESS I 
ACCESS II 
ACCESS III 
ACCESS IV 


10 slot mainframe 


4 slot, % high drives 
5 slot rackmount 


For hard disk option, add to above prices 
15M-$1295 
Multi-user/processor options available with Turbodos © 


5M-$995 10M-$1150 


COLOR GRAPHICS PACKAGES (S-100) 


512 x 480 res. 
CAD Packages 


TOTAL ACCESS, Suite 202, 2054 University Ave. 
Berkeley, California 94704 
415-540-8066 


Circle no. 25 on reader service card. 


80 


Teletek Systemaster 
Choice of Terminal 


7 slot, with wood sides 


Business Graphics 
Complete subsystem with Amdek II and 4 color plotter 

(includes business graphics)-$3000 

Optional CAD Drafting Package $900 
Bit pads and other plotters available 
Daisywriter 2000 48k buffer $1100 
Many other items available - all discounted 

Call or write for a catalog. 





The operating system resides in a file 
named ‘“‘CPM.SYS” and is loaded into 
memory by a cold-start routine which is 
initially read in from the two reserved 
system tracks (similar to CP/M-86). All 
of the modules (CCP, BDOS, and BIOS) 
of CP/M-68K remain resident at all times. 
The CCP and BDOS are written in C, and 
the BIOS of course is written in assembly 
language by the system implementor. 


CP/M-68K contains most of the fa- 
miliar CP/M commands, as well as some 
impressive new program development 
tools (see Table 1). The inclusion of a 
version 7, C-compatible compiler is a tre- 
mendous enhancement. Preliminary 
benchmark results indicate that this com- 
piler generates very efficient code (see 
Jim Gilbreath’s article in the January 
1983 BYTE). 

Transient application programs are 
designated in the disk directory with the 
extension “68K.” A program may be 
loaded via a command line at the CCP 
level or by another program through 
BDOS funtion 59. After a program is 
loaded, the Transient Program Area 
(TPA) contains the base page, the pro- 
gram segments (text, data, and bss). and 
the user stack (see Table 2 and Figure 1). 

The CP/M-68K BDOS functions are 


2 Serial Ports 
2 Parallel Ports 


$2995 
$3050 
$2950 
$2950 


25M-$1650 


Plot-10 Calls 


Low Memory 


CP/M-68K Operating System 


Exception Vectors 
(reserved for use by system) 





CP/M-68K Memory Map 


very similar to CP/M-86, except that the 
memory management functions are not 
included. A typical calling sequence is as 
follows: 


move.w #2,D0.W ;move function number 
‘to the first data register 

move.w #7,D1.W ;move ASCII bell code 

sto the second data 

‘register 

‘request BDOS function 

sto output a character 


trap #2 


Any results are returned in DO.W. A 
few of the BDOS functions are different 
or new compared to the previous operat- 
ing systems and will be described briefly 
below. 

Function 12 (return version number) 
yields the value 2022H in register DO.W, 
signifying a 68000-CPU, single-user envi- 
ronment without networking, and BDOS 
version 2.2. 

Function 50 is a direct BIOS call 
which allows application software to ma- 
nipulate the primitive device drivers. The 
D1.L register contains the address of the 
BIOS Parameter Block, a five-word mem- 
ory area containing the desired function 
number and two other 32-bit paramenters. 










Uninitialized Data 






Initialized Data 








Figure 1. 
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Any results are again returned in register 
DOW. 


Funtion 59 loads an executable pro- 
gram file into memory. The address of a 
Load Parameter Block (LPB) is passed in 
register D1.L. The LPB describes the pro- 
gram and specifies the load address; it 
includes the following items: 


e address of File Control Block of 
successfully opened program file 


© lowest address of area in which to 
load program 


@ highest address+1 of area in which to 
load program 


e address of base page (returned by 
BDOS) 


@ default user stack pointer (returned 
by BDOS) 
@ loader control flags 


The BDOS allocates memory for the 
desired program and base page and initia- 
lizes locations 0000-0024H of the latter. 
Locations 0025-0037H are not initialized. 
The calling program must fix up any addi- 
tional program, first pushing a return ad- 
dress on the stack if it wishes to resume 
execution later. 


Funtion 61 (Set Execution) allows a 
program to link its own handlers to the 
operating system for such events as bus 
errors, illegal instructions, and zero divide. 

Function 62 sets the calling program 
into Supervisor State and swaps to the 
system stack. Presently this call is always 
successful, though in future versions (es- 
pecially multi-user systems) the function 
may not be present or may require cer- 
tain privilege attributes. 

In forthcoming columns we will pro- 
vide examples and benchmarks of pro- 
grams run under CP/M-68K, and begin to 
publish some 68000 utility subroutine 
listings. 


Improved Square Root Routines 


Don Taylor of Corvallis, Oregon 
writes: “If you are going to do square 
roots, and you have assembly language 
access, don’t use Newton’s Method. It is 
a fine tool, and very general purpose, but 
too slow for something as simple as this. 
{I don’t remember where I first ran across 
the integer bit-by-bit method, but typi- 
cally it is an order of magnitude faster. 

‘*The idea behind the enclosed square 
root routine is very similar to the way 
that it is done by hand, except for the 


Do beginning computerists ask you questions? 


Give Them A GuideBook 


Computer own™ 


fact that the process is even simpler in 
base 2. In decimal you use pairs of digits, 
in binary you use pairs of bits. In decimal 
you must guess the next trial digit, in bi- 
nary it can only be zero or one. 

“If you breakpoint the routine at the 
bottom of the loop, you can see the par- 
tial result growing bit-by-bit. In addition, 
the remainder should not exceed the trial 
root. If the remainder exceeds half the 
root at the end of the routine, the root 
can be better approximated by increasing 
it by one; without doing this the root will 
always be less than or equal to the real 
square root.” 

Our thanks to Don for this interest- 
ing and elegant subroutine. A listing in 
Intel 8086 mnemonics accompanies this 
column on page 82. 


DD, 


(Listing begins on page 82) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 245 





exists to increase the accessibility of microcomputer information. We do this through affiliates 


worldwide, through the ComputerTown News Bulletin and through a variety of membership services. Now we are pleased 
to announce COMPUTERTOWN GUIDEBOOKS which answer the questions of many beginners. 


A Bay Area Guide to Computer 
Stores by Paul Greenblatt 


If you live in the San Francisco 
Bay Area’s “Silicon Valley” and 
have anything to do with micro- 
computers, this booklet will be 
your guide through the rapidly ex- 
panding maze of Bay Area computer 
stores. Arranged geographically and 
indexed by store name, this guide- 
book gives names and addresses, 
products, support services, and 
Other useful information. 


Glossary of Microcomputer Words 
and Terms (plus — How to Select 
the Right Computer for You) by 

Marlin Ouverson 


Part I of this informative book- 
let provides an armchair tour 
through the baffling world of 
“computerese,’’ with clear, concise 
definitions of computing words and 
Dhrases. Part II helps readers develop 
personal criteria for selecting the 
best computer to suit their needs. 


Microcomputer Questions and An- 
swers by Dale Peterson 


This guidebook answers those 
most commonly asked questions 
about computers, as well as those 
questions many people don’t ask, 
but should. 


ComputerTown Guidebooks are available for $2.00 per book (non-members) or $1.70 (members) plus 60¢ each for postage and handling. 


(Smputerfown 


P.O. Box E 
Menlo Park, CA 94025 
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Integer Square Root 
(Text begins on page 79) 


title *Integer Square Root’ 
pagewidth 79 


Integer Square Root for 8086/88 
Contributed by Don Taylor 


Call withs AX = Argument 
Returnss AX = Square root 
Other registers preserved 


Wi wy ee’) ee)  ) eS | | | | 


0000 33 qrt: push bx ;save registers 

0001 Si push cx 

a002 S2 push d» 

9003 8BDO mov dx, ax sargument into Dx 

0005 B9O800 MoV cx, snumber of iterations 

0008 33DR xOor bx, bx s;clear the remainder 

000A SBC MOV ax, bx s;clear trial value and 
sfinal result store 

OoOO0C DIES sqrti: shl bx, i sdouble partial result 

QOOE 43 inc bx s;gquess next bit is a l 

OOOF DIES shl dx, i sfetch 2 new bits 

OoOO11 Dida rer ax,l1 3from argument 

oois3 DIES shl dx,l 

0015 DIDO ret ax,1 

0017 2BCS sub ax,bx sdo a trial subtraction 

OoO19 7308 0023 jnc sqrt2 3;guess was right, 
sappend a i bit 

OO1B O3C3 add ax, bx sguess wrong, put it 
3; back 

OO1D 4B dec bx sand clean up for 
;mext pass 

QOO1E ESEC Oo0C loop sqrti 

0020 E9O300 0026 jmp sqrts 3go0 scale result 

0023 43 sqrt2: inc bx s;convert xxxxOl ta 
3;xxxx10, 1.2. append 
sa il bit 

0024 ESES 000C loop saqrti 

0026 DIFB sqrt3: sar bx, 1 3;divide by 2 to get 
sactual square root 

0028 8SBC3 mov ax, bx sreturn result in AX 

002A SA pop dx srestore other registers 

O0O02B 59 pop cx 

oO2C SEB pop bx 

0o02D C3 ret 


END OF ASSEMBLY. 


\ 


pt 


NUMBER OF ERRORS: QO. 


USE FACTOR: O27 


End Listing 


apenas a 
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SOFTWARE REVIEW 


Unica and XM-80 


by Michael Favitta 








Product: Unica and XM-80 
From: Knowlogy 
P.O.Box 283 — E 
Wilsonville, OR 97070 
$195.00 ($95.00 Unica only) 
Reviewed by Michael Favitta 


Knowlogy advertises that its software 
package “brings a Unix-like environment”’ 
to any Z80-based computer system run- 
ning CP/M version 2 or beyond. The Unix 
environment is simulated by using a set of 
utility programs that possess Unix-like 
attributes. If you purchase XM-80, you 
will also need Microsoft’s MACRO-80 
assembler and LINK-80 loader. 


The package is divided into two inde- 
pendent parts, the executable modules 
called Unica and the language translator 
XM-80. The Unica are a group of file- 
related utility programs that perform 
functions such as delete, copy and search. 
They are written in the XM-80 language 
and the source for each is provided. The 
XM-80 translator converts the XM-80 
source modules into standard Z80 assem- 
bly language. The Unica may be purchased 
without XM-80 for $95. If desired, XM- 
80 may then be added at a later date for 
the cost difference plus a $10 handling 
charge. You may also purchase new and 
enhanced Unica as they become available 
but Knowlogy does not indicate what the 
fee for this service will be. 


Unica 


The Unica part of the package con- 
sists of eighteen COM files, each of which 
performs one function and is referred to 
as a command. To create the Unix-like 
environment, all commands support re- 
direction of standard I/O to any device 
or disk file, multiple commands linked 
together via “‘pipes,”’ and filename conven- 
tions that support user numbers and 
extended wild card capabilities. 


The commands provided are: 


BC Binary file comparator that 
displays differences between 


two files. 

CAT Concatenates one or more files. 

CR Copies one or more files. 

DM Prints a disk allocation map. 

FID Computes a 16-bit checksum 
for a file. 

HC Concatenates one or more files 
horizontally (by line). 

LN Creates an alias for a file via a 


directory link. 


LS Lists the directory contents. 

MV — Renames (moves) one or more 
files. 

RM Deletes (removes) one or more 
files. 

SC Source file comparator that 
displays differences between 
two files. 

SFA Sets and changes file attributes. 


SP Spelling error detector. 
SR Pattern searching with wild cards. 


SRT Sorts lines of a file by text in 
specified columns. 

TEE A “pipe fitting’? used to direct 
output to more than one 
command. 

WC Counts the characters, words, and 
lines in one or more files. 

WX Extracts words from one or more 


files. 


Each command has a set of flags 
associated with it that are used to specify 
procession options. Flags consist of a 
minus sign followed by one or more let- 
ters. They may appear separately or in 
groups, any place in the command line. 
Two of the most useful flags are the N 
and V flags. The N flag prints the name of 
each file as it is processed. The V flag 
takes this a step further and allows you to 
verify that processing should be carried 
out on each file specified. This allows 
wild card filenames to be used freely, as 
you can prevent any file from being pro- 
cessed even though it matches the wild 
card. This feature can prevent some costly 
mistakes when using a command such as 
RM to delete files. 

Many of the commands are more 
useful than the brief descriptions of them 
above may indicate. The commands CP, 
HC, and SRT are such commands and 
merit further discussion. The spelling 
error detector (SP) also needs some ex- 
planation as it was the only Unicum that 
performed poorly. 

The copy command (CP) has all the 
capabilities of PIP except for the data 
conversion functions (such as converting 
the output to upper case). In addition, CP 
allows you to set or change file attributes 
and will not overlay a file that is marked 
as write-locked. It can copy a file to the 
same disk so you can make backup copies 
easily on a single-disk system. The com- 
mand is designed for maximum disk 
efficiency as it uses all available memory 
for buffers and always reads as much as 
possible before writing. In my tests, I 


found that CP was about twenty percent 
faster than PIP when two or more files 
were being copied. When copying one file 
they were about the same speed. As with 
all file-related commands, extended wild 
card capabilities are present that can be 
controlled with the V flag. 


The horizontal concatenate command 
(HC) does a lot more than just append 
lines together. If you specify different sets 
of flags, HC will expand tabs to spaces, 
compress spaces to tabs, add leading 
Spaces, remove trailing spaces, print one 
or more files side by side starting at any 
column position, and append a string 
constant to each line of a file. It is a 
handy tool for reformatting text to fit 
various terminal screen widths and for 
converting files from other systems to 
your own space/tab conventions. 

The data sorting utility (SRT) sorts 
the contents of a file into alphabetical or- 
der. The size of the file that can be sorted 
is determined by your system’s memory 
size, as sort is done in memory using the 
Quicksort algorithm. A primary sort key 
field can be specified by using flags to set 
the column positions. In this case the rest 
of the line will be used as a secondary 
sort key. 


The spelling error detector (SP) cre- 
ates a list of all the words in a file that it 
does not find a match for in its dictionary 
of 23,688 words. Unfortunately, the dic- 
tionary does not include plurals or conju- 
gated verbs and there is no facility to add 
new words. These limitations are docu- 
mented and Knowlogy promises to up- 
grade this command in the future. In | 
actual testing, a document that contained 
773 words had 680 of them flagged as 
possible errors. Only 74 of the words 
flagged were actually incorrect (e.g., mis- 
spelled, acronyms). Not wanting to 
believe the results, I created a file that 
contained 35 common words and ran SP 
again. To my disappointment, it flagged 
28 of the words as possible spelling errors. 
This was also the only Unicum that I 
found any software problems with. SP 
causes a system crash if the dictionary 
file is not present when it is executed. In 
its current form, the SP Unicum is not 
worth using. 

The Unica package is more than just 
a set of independent utility programs. 
The commands may be linked together to 
form complex procedures. These connec- 
tions are called pipes. Along with the abil- 
ity to redirect the output of a command 
to any device or file, pipes create a flex- 


—— 
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ibility that makes the Unica package a 
worthwhile investment. The following 
examples demonstrate the command line 
syntax, the redirection of output, and the 
use of pipes. 


CAT file1 file2 | 
SR “find this” -1 >b: file3.ext;2 


This command string concatenates 
filel and file2 in a temporary file that is 
passed to SR. SR writes the line number 
and line to file3.ext on drive b for each 
line that contains the string “‘find this.” 
File3.ext is associated with user number 2. 


WX -v *.doc!| TEE con:| SRT -u | 
TEE lst: > filel 


This command string extracts a list 
of all words used in all files that have a 
.doc extension on the currently logged 
drive. You will be prompted to verify 
that you really want to process each file. 
The extracted words are printed on the 
console and piped to the sort (SRT) com- 
mand to sort the list of words and remove 
all duplicates. The sorted list is written to 
the printer and file1. 

With the exception of SP, I found 
the Unica package to be well though out 
with respect to what commands were pro- 
vided and how they interacted when con- 
nected via pipes. Each command worked 
exactly as documented. Not all the com- 
mands worked perfectly in every case but 
the cases that caused problems were clearly 
defined in a ‘“‘bugs”’ section for each com- 
mand. Besides SP causing a system crash 
when the dictionary was not present, the 
only problem I encountered had to do 
with the physical size of the package. I 
have single-density 8-inch disk drives that 
have a formatted capacity to 250 Kbytes. 
The Unica without the spelling diction- 
ary (another 73 Kbytes) take up 222 
Kbytes of storage. This leaves very little 
room on a single disk for other utilities 
and text or source files. Since all tempor- 


C SCREEN EDITOR 


CSE: A full-screen text editor written in C 

e Powerful command set includes cursor control, 
find/replace, block move, file inclusion, and nested 
macro commands 

e Installation program allows easy customization for most 
popular terminals 

e Available for CP/M-861, MP/M-86', CP/M 2.2), 
MS-DOS?, and IBM PC3 

e Requires 64K CP/M-86 or equivalent MP/M-86; 56K 
CP/M 2.2; 64K MS-DOS; 64K IBM PC 

e Includes object code, C source code, and manual 

e Available in 8” SSSD format for CP/M-86, MP/M-86, 
CP/M 2.2, MS-DOS 

e $60.00, including UPS; additional versions $20.00 each 


8080 SIMULATOR 


SIMS8O: An 8080 simulator for the 8086/8088 

e Run CP/M object code (.COM files) on any CP/M-86 
or MP/M-86 system : ASM, DDT, dBase II*, C/80, 
MBASIC, etc. 

e Retain applications software when upgrading from 
CP/M to CP/M-86 

e Develop and debug CP/M software on CP/M-86 

e 8K overhead, TPA can be 61K 

e 1/3 to 1/10 as fast as a 5 Mhz 8085 (not recommended 
for highly interactive programs such as Wordstar5, or for 
very large, slow interpreted BASIC programs) 

e Includes object code, ASM-86 source code, and manual 

e Available in .8” SSSD format for CP/M-86, MP/M-86 

e $50.00, including UPS 


Both CSE and SIM80 for $90.00 


P.O. Box 10853 » Eugene, OR 97401 » (503) 689-7010 


tm, Digital Research; *tm, Microsoft; 3tm, IBM; ‘tm, Ashton-Tate; 
stm, Micropro 





BA Circle no. 49 on reader service card. 


ary files that are created during proces- 
sing (via pipes) reside on the currently 
logged disk, the problem is compounded. 
This problem can be overcome by using 
more than one drive. You then must spe- 
cify the drive for all the files and com- 
mands that do not reside on the currently 
logged drive. This procedure can be quite 
frustrating as there is a much greater 
chance for human error, especially when 
entering complicated command sequen- 
ces. Dual-density disk drives significantly 
enhance the practical usability of this 
product. 


XM-80 

XM-80 is a programming language 
that stresses the design of programs into 
modules that can be used in more than 
one program. The analogy of an electrical 
engineer, selecting existing integrated cir- 
cuits and wiring them together to per- 
form a required function versus using all 
discrete components, is used to describe 
this approach. Knowlogy calls this meth- 
odology ‘‘software synthesis.”’ In keeping 
with the analogy, each module is called a 
component and related components are 
grouped into families. Two families of 
components are supplied with XM-80. 
The 2800 family consists of components 
for the Z80 that are not hardware or soft- 
ware dependent. The 2801 family are 
components that require CP/M version 2 
or beyond. All the Unica are built from 
the components in these two families, 
“wired” together with Z80 assembly lan- 


guage. The source code for the two 
component families is not provided. 
Knowlogy’s software licensing agree- 


ment does allow you to freely distrib- 
ute any software that you develop, 
even if it contains one or more of the 
components. The agreement limits the 
distribution of any programs derived 
from a Unicum to other license holders. 
XM-80 is an acronym for an exten- 
sion of Microsoft’s 8080/Z80 assembler, 
MACRO-80. The XM-80 compiler trans- 
lates XM-80 procedures and/or procedure 
calls into standard Z80 assembly language 
that can be assembled by MACRO-80. 
Any line that is not recognized as an XM-80 
statement is passed through unchanged, 
allowing any mixture of assembly lan- 
guage and XM-80 to be used in writing 
XM-80 programs. Using XM-80 forces 
programmers to abide by a rigidly de- 
fined set of interface rules when writing 
new components. These include compo- 
nent naming and documentation conven- 
tions. By forcing adherence to the compo- 
nent interface rules for each component, 
the XM-80 compiler can validate that the 
arguments passed and the registers used 
by the specified procedure are correct. 
The end result of using a tool such as 
XM-80 is to increase programmer produc- 
tivity and decrease program development 
time by not reinventing the wheel for 


each new application. The compiler also 
reduces the possibility of program errors 
caused by passing parameters to subrou- 
tines incorrectly. 

The following is a summary of XM-80 
programming guidelines and syntax. 


The rules for XM-80 program devel- 
opment are: 


(1) Search through the available 
components and select those which are 
applicable to the project. 


(2) Define any new components 
needed. Code, test, and document each 
new component. Enter the completed 
component and documentation into the 
correct family library. 


(3) “Wire’’ together the components 
with assembly language to produce the 
completed program. 


The interface rules for components 
are: 


(1) Component names consist of up 
to six upper-case letters to identify the 
component, followed by a four-digit 
family name, followd by two lower-case 
letters to denote the author. If more than 
one global symbol exists fora component, 
then three letters are used to identify the 
component and global symbols are created 
by appending up to three letters to the 
component name. 


(2) The syntax for procedure defini- 
tion and procedure calling is demonstrated 
by the examples below. 


proc GETNUM [CHAN:stk] > 
[ERROR:a,NUM: hl] +C-de 

begin 

Source code (can include calls to 
other components) 

end GETNUM 


The procedure GETNUM is defined as 
having one input parameter that is passed 
on the stack. An error code is returned 
in the accumulator and a number in the 
HL register pair. The carry flag is altered 
and register pair DE is destroyed. 


The GETNUM procedure is called by: 
GETNUM [stk=(VALUE)] > 
[a,sSAVEHL=hl] +C-de 
The contents of the 16-bit word pointed 
to by VALUE are pushed onto the stack 
and then the procedure GETNUM is 
called. The contents of register pair HL 
are stored at SAVEHL after the return. 


The procedure definition is also en- 
tered in a special file called the component 
interface file (CIF). The CIF is used for 
parameter error checking by the XM-80 
compiler. Note that the registers destroyed 
by the called routine must be listed on 
the procedure call. These are checked by 
the compiler to make sure that the pro- 
grammer is aware of all registers that will 
be affected by the procedure call. 

The XM-80 compiler understands 
several statements besides those used in 
procedure calling and definition. These 
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Dear Reader, 


Dr. Dobb’s has a long tradition of listening to its readers. 
We like to hear when something really helps, or for that 
matter, bothers you. In this hectic world of ours, how- 
ever, it is often difficult to take the time to write a letter. 
This card provides you with a quick and easy way to 
correspond. Simply fill it out and drop in it the mail. We 
take care of the rest. 


Thanks for taking a few minutes to talk with us. 
— Editor 


Which articles or departments did you enjoy the most 
this month ? Why ? 





Comments or suggestions: 
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statements are used to give the program- 
mer control over how XM-80 sets up pro- 
cedure linkages and where needed CIF 
files can be found. The compiler can also 
be instructed to generate inline code if de- 
sired. The compiler itself is not a Unicum 
so it does not support any of the Unica 
capabilities such as redirection of output. 
It uses a command syntax similar to that 
of MACRO-80. Most of the command 
line is used to generate a MACRO-80 call 
after XM-80 is done. The XM-80 compil- 
er is controlled by specifying a set of 
flags similar to those used with the Unica 
at the end of the command line. 

Again, the package worked as docu- 
mented although the “known bugs’”’ sec- 
tion documented some serious problems 
(note that the version I reviewed was re- 
leased in March 1981). The worst of these 
is that if you enter the extension on the 
source input file, it is deleted. I would 
have liked to have seen a warning at the 
very front of the manual about this prob- 
lem, as it is an easy mistake to make and 
the consequence could be hours of lost 
work. The XM-80 package is a worthwhile 
assembly language programming develop- 
ment tool. It includes an extensive set of 
library components that could save many 
times the price of the package in pro- 
grammer time. An added bonus is that by 
using the I/O components provided, your 
programs can contain all the features that 
the Unica possess, including the ability to 
build pipes. 


Unica and XM- 80 Documentation 


The documentation for Unica and 
XM-80 comes in a three-ring notebook 
with labeled dividers that make it simple 
to find a desired section. This format 
makes it easy to add to and update the 
manual as you develop new Unica or XM- 
80 components. My one big gripe with 
the manual is that it doesn’t have a usable 
page-numbering scheme. All Unica and 
components start at page 1. This makes 
an index useless, so Knowlogy did not in- 
clude one. There isn’t a table of contents 
or any kind of summary of which Unica 
and components come with the package 
either. This means you have to read the 
entire manual to get a feel for what the 
package offers. The manual becomes tedi- 
ous to use once you’ve become familiar 
with the package and just want to use the 
manual as a reference. This problem could 
be solved easily by the addition of a 
couple of appendices with summaries of 
the Unica and KXM-80 components and 
their associated syntax and argument lists. 

Putting format aside, the manual is 
written carefully and thoroughly de- 
scribes the product and how to use it. 
Examples are used liberally throughout 
the text to demonstrate what the various 
Unica do and how they can be combined 
to perform other functions. For XM-80, 
an example is provided that takes you 


from program design, through testing, to 
program completion. Detailed data sheets 
are provided for each of the components. 
The source codes for the Unica can also 
be used as an excellent tutorial on how to 
write XM-80 programs, as they are well 
written and extensively commented. 

Knowlogy dispenses a good deal of 
software design philosophy along with 
the hows and whys of Unica and XM-80. 
This makes the manual read more like a 
textbook than a reference manual. (This 
probably has something to do with why 
they chose ‘“Knowlogy” as a company 
name.) The entire package is presented as 
a complete methodology on how to solve 
problems with a computer, with the 
Unica part of the package an end result of 
the methodology. Personally, I like this 
approach and think the resulting manual 
is one of the best that I have seen with 
respect to content. 


Summary 


The Unica are a group of utility pro- 
grams that use an extended CP/M com- 
mand sequence that allows the output of 
one command to be used as the input to 
another. With the exception of the spelling 
command (SP), all the Unica worked as 
documented and would make a useful ad- 
dition to just about anyone’s set of utility 
programs. Even without SP, I think the 
Unica package is well worth $95. 

XM-80 is a software development 
tool designed to increase programmer 
productivity. If the “software synthesis’’ 
methodology is followed, then this tool is 
a worthwhile investment. If you can’t live 
within the rigid framework defined by 
the methodology, then I would suggest 
saving the extra $100 that XM-80 costs. 
To get the most out of the entire package, 
you should design your programs with 
the existing components that provide the 
special features used by the Unica. 

Overall, the Unica/XM-80 software 
product is designed and documented very 
well. The package I received did have a 
few problems, which I presume will be 
corrected in later releases, but most are 
documented and can be programmed 
around. 


We checked with Knowlogy to see if 
there had been upgrades from the release 
that our reviewer received. We were in- 
formed that they have indeed released an 
upgraded version that has severalimprove- 
ments, among them a redone spelling 
error detector which now has a dictionary 
of 130,000 words (including plurals and 
conjugations) and the ability to add new 
words. — Ed. 


DB, 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 247 
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CRAFTSMANSHIP 












Presenting "the tools used by the toolmaker". 
Designed by software craftsmen and used internally 
for several years on our own projects, the program 
development tools of Intellect Associates are now 
being offered to the small-systems programmer. 








The Development Language - "C88" 


C88 is a systems programming language merging 
high-level control structures with bit, byte, and 
machine manipulation instructions. 










Designed for the programmer who requires the 
flexibility of an assembler language but recognizes 
the need to structure his programs into 
maintainable functions and modules, C88 is modelled 
after Bell Lab's C programming lanquage, but 















oriented to the small computer. C88 is a one-pass 
compiler and produces files that can be directly 
linked into programs or incorporated into 
libraries. 





The C88 compiler was implemented with an eye toward 
fast program development turnaround time on small 
diskette-based machines. Typical compilations run 








at 500 lines per minute, require only a single 
pass, and need only 64k of memory. Compare this 
with other compilers which often require two or 






three passes (possibly with diskette changes) and 
generally want between 96k and 128k of memory. The 
language is upward compatible with the C language 
described by Kernighan and Ritchie, lacking 
floating point and structures. Combined with a 
flexible linkage editor / library manager called 
L88, and a library of utility, I/0, and hardware 
access functions (all included with the compiler), 
C88 offers capabilities of no other program 
development system in its price range. If you 
really need floating point or structures, this C is 
not for you. If you need fast compilation for rapid 
program-development, this compiler may be what 
you've been looking for. 












The Editor - "WINDOW" 











WINDOW is a very quick display editor designed for 
the IBM Personal Computer. 






If you're. tired of using a slow-moving 
word-processing type editor for program development 
then this product is for you. The WINDOW display 
editor gives you a 25 line “what you see is what 
you get" screen, with forward, backward, left and 
right scrolling capability on files of unlimited 
size. You get complete functionality (including 
search, replace, mark, copy, move, delete, put, 
get, etc.) without the distraction of command 
lines, menus, and status messages because most 
operations are controlled by 10 function keys. 
Pop-up prompting and help windows appear from time 
to time, but disappear when not needed. 
Furthermore, once the program is loaded it is 
completely self contained. This means diskettes can 
be changed at will and no disk accesses are 
required for overlays, menus, etc. Write us to find 
out why WINDOW beats the "-stars" and "-writers". 
















The Cross-Referencer - "X88" 





X88 is a listing and cross reference generator for 
C programs. 












Here's a useful tool for generating listings of 
your C programs. The X88 cross referencer produces 
paginated listings with line numbers, followed by a 
cross reference (C keywords are automatically 
suppressed). Options allow control over lines per 
page, references per line, and #include file 
processing. A good buy at $50. 








The Documentation Formatter - "PCtext" 








PCtext is 
preparation of 
documents. 


a document formatting program for 
manuals, reports, and large 










Modelled after the ROFF processor of UNIX, PCtext 
gives you powerful text processing capabilities at 
a very affordable price. With any editor you create 
one or more text files intermixed with formatting 
commands and then run the files through PCtext. The 
result is a beautifully formatted document with 
justified text, page headings/footings, indention, 
outdention, titles, underlines, and more. 














All products are available for immediate delivery 
and run on the IBM Personal Computer under PC-DOS. 
Prices are: C88 $150, WINDOW $150, PCtext $100, X88 
$50, demonstrator version of WINDOW or PCtext $25, 
any manual $10 (NY state residents please add sales 
tax). 











x @ intellect 
| associates 
inc. 





P.O. Box 365, HOLBROOK, NEW YORK 11741 








Circle no. 66 on reader service card. 
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OF INTEREST 


by Michael Wiesenberg 





















Baudy Modem 


Modems with 1200 baud are lower- 
ing in price. Racal-Vadic’s VA212LC 
costs $550. The Bell-compatible, 
switched-network, originate/answer 
full-duplex modem operates at 1200, 
or 0 to 300 for communications with 
slower systems, automatically deter- 
mining the baud rate of a calling 
modem. Auto-answer can be disabled 
to obviate answering calls on lines that 
carry both voice and data. Five LEDs 
display operational status, monitoring 
transmit and receive data, carrier 
detect, voice/data status, and bit rate; 
and the unit continually monitors itself 
with automatic self-test routines. The 
VA212LC automatically handles 9- or 
10-bit character codes, and thus trans- 
mits EBCDIC or ASCII. Reader Ser- 
vice No. 101. 




























A Genius for Displays 


Many of the newer dedicated 
word processing systems and comput- 
ers have full-page screens, but now 
you can get an 80-character x 57-line 
display (73 optional) for Apple and 
most other computers with standard 
RS232 port. The Genius from Micro 
Display Systems, Inc., offers white, 
green, or amber phosphor, reverse 
and flashing video, 128-character 
ASCII set (or optional foreign charac- 
ter sets), graphics, 19.2K baud inter- 
face, and internal 16K memory buffer- 
ing and screen memory, on an 8- x 
10.5-inch display. You can get 100/120 
volts, 60 Hz for $1795, or shielded 
220/240 volts, 50 Hz for $1950. (Prices 
are FOB Minneapolis, which, I think, 
means you have to pay for shipping 
from there to anywhere else.) Reader 
Service No. 103. 
























And Another Big Monitor 


QuadScreen, from Quadram, for 
the IBM PC is a 17-inch monochromat- 
ic display with 160 characters x 64 
lines, more than five times the screen 
capacity of IBM’s monitor. Bit-mapped 
graphics permit individual addressing 
of all 960 x 512 dots, while the hard- 
ware can display any character font in 
any size (providing infinite user defin- 
able character sets). QuadScreen has 


86 





its own character set in a5 x 7 matrix, 
while software provided by Quadram 
permits defining characters of any size 


or shape. Reverse video and smooth 


forward and backward scroll are 
part of the product. $1950 gets you 
the monitor, cable, software, and dis- 
play controller board that fits into any 
expansion slot of the PC and has 64K 
memory that can be used alone for 
memory expansion. 

Quadram also makes QuadSpooler, 
a software program that permits simul- 
taneous printing and spooling, even 
with two printers. You designate from 
2K to 56K of RAM to use as the 
spooler buffer. No additional hardware 
is required, though Quadram would 
like to sell you one of their Quadboard 
memory expansion boards for the PC. 
Buy one and get QuadSpooler free, or 
get just the software for $19.95. 

And while I’m giving them space, 
Quadram’s MicroFazer has improved 
since last I mentioned it. This hard- 
ware buffer/spooler has a copy feature 
that prints as many additional copies 
of the buffered information as speci- 
fied by pressing a button. Use it with 
any computer or printer, and expand 
its 8K memory size up to 512K (with- 
out using any of the computer’s mem- 
ory). Parallel-to- parallel, parallel-to- 
serial, serial-to- parallel, and serial-to- 
serial are all available, priced from 
$169 to $1395. Reader Service No. 
10S. 







And An Inexpensive Amber Guy 


The ADP-120A from Atlantic 
Data Products, a 12-inch, high- 
resolution, amber phosphor (amber on 
grey), 16MHz-bandwidth data monitor, 
compatible with many micros, costs 
$169. Reader Service No. 107. 


Rufus T? 


The Firefly battery pack (and 
eyeglass stand) from Gamma Research 
gives three to eight hours of portable 
battery power to Osborne, Apple, 
IBM, KayPro, Franklin Ace, et al. An 
optional uninterruptible power supply 
(U.P.S.) protects micros from voltage 
spikes or blackouts by automatically 
switching to the Firefly whenever 
sensing AC failure and functions as a 
rapid (three- to four-hour) Firefly 
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charger. You get a 12-volt DC power 
cable to run the computer or charge 
the Firefly from your car’s cigarette 
lighter, four LED charge state moni- 
tors, a discharge warning buzzer, and a 
12-month warranty. It all comes in a 
detachable (into two sections) 62- x 
414- x 94-inch hard travel case with a 
carrying strap. The Firefly battery 
pack reduces computer heat genera- 
tion by up to 80%, they say, which ex- 
tends the computer’s life. The battery 
pack is $229 to $279, and U.P.S. $99 
to $109. And to double battery power 
time, they have a booster pack for $169. 
Gamma Research also offers a Firefly 
9-inch, 1000-line, high-resolution, 
green ($244), or amber ($299) moni- 
tor in a lightweight travel case with 

a detachable daylight glare-reducing 
hood, that runs off AC, your car’s 
cigarette lighter, or (or course) the 
Firefly battery pack. Reader Service 
No. 109. 





Basic Database System 
for CBASIC and Other Bases 


The Tarbell Database System 
from Elliam Associates is supplied in 
‘COM files and CB80 source (to run 
under CBASIC). It supports up to 19 
open files, with no limit on numbers 
of records or their lengths or those of 
field names. The system’s series of pro- 
grams uses a common file format for 
random and sequential files, for option- 
al index files, and to chain from the 
main menu to other programs and 
HELP files, set up files, enter data, 
update files, write reports, build 
command files, copy files from one 
format structure to another, sort files, 
print mailing labels, and personalize 
letters. A QUERY language interac- 
tively or from command files defines 
search area, scope of search, and 
search conditions. You need a 48K sys- 
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tem. $100 for disk in most configura- 


tions and formats (specify), plus $1.50 
p & h (Californians, add sales tax). 
Reader Service No. 115. 


Yeah, But Where’s Ferddy? 


MORTTY is a communications 
program from Phillip Emerson for H8, 
H89, Z89, and Z90 computers. It 
sends and receives ASCII and Baudot 
code at any baud rate the equipment 
can handle, uses a full screen and a 
user-definable split screen, has a 
type-ahead buffer, logs on automati- 
cally, allows the user to define hand- 
ling of carriage return, line feed, and 
control characters, echoes or not as 
defined, uses full or half duplex, 
automatically identifies Morse code, 
has advanced string storage, automat- 
ically programs smart modems, print- 
ers, etc., and has user-definable, single- 
keystroke functions. You need HDOS 
with 32K and a modem. You get a 
5¥%-inch hard-sectored disk, a 60-page 
manual, and a year’s free updates, for 
$100 (Ohio, add sales tax). Reader 
Service No. 117. 


Alien Contest 


The Alien Group, who makes Voice 
Box speech synthesizers for Atari and 
Apple computers, would like to give 
away $6,800 to the authors of what 
they judge to be the best talking or 
singing programs that use (what else?) 
the Voice Box, in their Voice Box-ing 
Match Contest (cute, cute). First prize 
is $5,000. Judges will be computer 
game players ages 13 to 18. The Alien 
Group also wants you to know about 
their new Atari Voice Box that recog- 
nizes phonetic or normal spelling, has 
an (apparently) unlimited vocabulary 
and random sentence generator, is pro- 





grammable from BASIC or assembly 
language, plugs directly into the serial 
port, does not blank the screen while 
talking, is available in 16K cassette and 
16K and 32K disk versions, speaks 
with intonation or feeling (but they 
don’t say if it can do both simulta- » 
neously), sings in key (that’s better 
than I can do), sings in three simulta- 
neous musical tones, converts two key- 
board rows into a literal chromatic 
piano with a 2%-octave range, pro- 
grammatically handles glissando, trem- 
olo, and vibrato, comes with 40 songs 
that you can add to, has a system for 
easily (so they say) creating and edit- 
ing words and music, has educational 
software, has two “talking heads”’ with 
programmable lip-sync animation and 
high-res color, and inclues a demo. 
$169 for a wonderful product that the 
Las Vegas Sun thought was the highlight 
of COMDEX. Reader Service No. 123. 





Process Words for Less 


Word processing software can cost 
upwards of $500 and may not be 
worth the price, or cost under $100 
and not work worth beans. Here’s one 
from a company known for quality 
software (in the games field mainly, 
but they do have a reputation to 
maintain) that seems to offer a lot for 
$69.95. Bank Street Writer from 
Br¢derbund Software (“‘Developed,” 
they say, “‘and heavily tested among 
students and young adults by Bank 
Street College-and Intentional Educa- 
tions’’ — is that the name of a real 
school?), for 48K Apple II+ or Apple 
II with Applesoft in ROM or RAM and 
16-sector controller and for 48K Atari 
400/800 (and maybe 1200?) (re- 
quiring BASIC cartridge for tutorial 
only), has global search and replace, 
move and unmove, automatic centering 
and indent, inverse text highlighting, 





ae 


PEPE ELS ae SB E 4 Ce ee Me ae stags 


ye hy gh ty a 


} Ti 
SPS . om 





Load Bettair Weeth Z-Dubber 


Improve on the current difficulty 
of loading cassette programs into the 
Sinclair ZX81/Timex 1000 with Z- 
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Dubber from Bytesize Computer Prod- 
ucts or connect two cassette recorders 
for making perfect backups. $29.95 
plus 90¢ shipping. Reader Service No. 
111. 








' word wrap, disk storage and retrieval 


functions with password protection 
(you don’t get that on most WPs!), 
redefinable defaults, and a ‘‘potent”’ 
print format routine, including docu- 
ment chaining, page headers, page 
numbering at top or bottom, partial 
printing, and format previewing before 
printing. No special hardware is needed 
and upper and lower case are displayed. 
The back of the disk has a tutorial, 
and you get a free backup disk and 
complete documentation (I think that 
means a manual). Reader Service No. 
119. 





*-trix”’? Are Not Necessarily 
for Kids 


Quotrix, the second of Insoft’s 
**-trix’’ educational games for the IBM 
PC has players guess one of 700 possi- 
ble famous quotes by following a trail 
of crossword puzzle clues, trivia ques- 
tions, foreign words, and other word 
games. Sounds like a lot of fun for 
$34.95. Reader Service No. 121. 





ET Enthusiasts 


Join ETUG, the user’s group for 
Heath’s ET/ETA-3400 microprocessor 
trainer (but not affiliated with Heath) 
and for those who program the 6800 
and 6809 and in tiny BASIC, and 
receive a quarterly newsletter for $16 
a year (US and Canada; $22 elsewhere). 
They’ve been around for over a year. 
LAETUG for Los Angelenos has just 
fired up, and meets at a Heathkit Cen- 
ter. ETUG, 11231 Oak St., El Monte, 
CA 91731; LAETUG, c/o Gilbert 


Advertisement 


HIGHFALUTIN' 
COMPUTIN' 


with 
Bob Orrfelt 


on your 
TS 1000 Computer 


Intro to advanced ideas. 
Dice to hex and more. 
120 pages, 30 programs. 
$11 inc s&h. Cal res. 
add $.65 tax. 


Bob Orrfelt 
3436 Bay Road, 
Redwood City, Ca 94063 














Murillo, Heathkit Electronic Center, 
2309 S. Flower, Los Angeles, CA 
90007; (213) 749-0261 and 443-2237. 









Tick TOC 


The Technology Opportunity 
Conference (TOC), a worldwide con- 
vergence of optical storage, videodisk, 
and computer technology sponsored by 
OPTICAL MEMORY NEWSLETTER 
Including Interactive Videodisks and 
Office of the Future Limited (heady 
names indeed!), will meet in San Fran- 
cisco, April 5- 7; New York, April 26- 
28; Washington, June 14-16; London, 
July 5-7; Los Angeles, July 11-15; 
New York, September 12-16; Chicago, 
October 10-14; San Francisco, Novem- 
ber 8-10; Kaanapali (Maui), November 
29-December 1; Orlando, December S- 
9; and Houston, January 9-13. Reader 
Service No. 127. 













































































Logo For Atari 


Logo for the Atari 400, 800, and 
1200XL, developed and manufactured 
for Atari by Logo Computer Systems, 
Inc., of Montreal, will soon be availa- 
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ble in a 16K cartridge sold and distrib- 
uted by Atari for under $100. Reader 
Service No. 113. 


Learn Modula-2 


From the Father of Pascal, Nick- 
laus Wirth, came Modula-2 (VODU lar 
LAnguage) in 1980, sometimes called 
‘Pascal for grownups,’ and described in 
understated fashion by Wirth himself 
this way: ‘‘The structure of Modula is 
an improvement upon the structure of 
Pascal.”’ Yes, there was a Modula-1, 
the developmental version, in 1975. 
Logitech is developing Modula-2, to- 
gether with a fully symbolic debugger, 
for various 8086 CP/M-86 and MP/M- 
86 environments, and would be pleased 
if you would contact them for more 
information. Reader Service No. 129. 


And to learn all about the lan- 
guage, Volition Systems are selling a 
264-page loose-leaf format Modula -2 
User’s Manual, accompanied by Wirth’s 
48-page Modula-2 technical report, 
for $35. It contains information about 
standard library modules, utility library, 
and implementation on UCSD Pascal, 
and a machine-specific implementa- 
tion guide with information on librar- 
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ies, interrupt handling, and machine- 
level data representation. You can also 
buy Wirth’s Springer-Verlag book, Pro- 
gramming in Modula-2, from them for 
$16. Reader Service No. 131. 











Can Aerobics for the Computer 
Professional Be Far Behind? 


I’ve got my copy of Tone Up at 
the Terminals, ‘‘an exercise guide for 
workers in automated offices.’’ You 

~ can get yours too, free, from Verbatim” 
Corporation. Now, without leaving the 
confines of my terminal, I can trim my 
hips and waistline by doing the Wind- 
mill, release tension in my hand and 
wrist with the Wrist Flex, do the Knee 
Kiss, and, to firm and tone my legs 
and (blush) buttocks, I can do the 
Derriere Firmer. The 12-page booklet 
includes over 20 exercises that have 
been reviewed and approved by the 
California Governor’s Council on Well- 
ness and Physical Fitness. Reader Ser- 
vice No. 133. 
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Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 249 
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the FRIENDLY COMMUNICATIONS SOFTWARE that has been EASY TO USE since 1978 


e Auto Dial + Answer Turnkey package with BBS 


e Bulletin Board System w/Data File Manager 


¢ COMMX Smart Terminal and File Transfer w/ e Utilities included for KeyMacros + Sort Dir 


Mainframe Protocols, CRC16 BiSync + Batch 


ovate Time Le-tiCcle Cam Olas ecHilie- lita olteluice 


@ 
e CONSOLX Remote System Access Controller e Detailed User Manual Available For $20 
e CPU License $150 Object or $900 Source 


 OFey st e-Len am Ao) | ae Ekolor.) We DY.) (2 ame) amt Or.) | Moy ns hg | Ce ake) at ol a od colonic 
23914 Mobile, Canoga Park, Ca. 91307 U.S.A. ¢ 213/348-7909 


sHAWKEYE GRAFIX 
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Each $24.95 
Both $39.95 








Please include $2 postage and handling with each order. California residents 
include 6% sales tax (6%2% in L.A. County). Indicate 51%” or 8” disk, single 
or double density, single or double sided, soft, 10 or 16 sectors. Call or write 
for complete catalogue with challenging word games like ADVENTURE and MasterCard 
STAR TREK ADVENTURE and other entertaining and useful programs. Our 
offices are at 2463 McCready Avenue, Los Angeles, CA 90039. Our 


telephone number is (213) 661-2031. 
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Do you use your computer? Or does your computer “use” you? Face it, if you're using floppies, your time is being wasted. 
Because a floppy is an inefficient random access storage device. Each time the processor wants to transfer data, it has to wait 
an eternity for the disk to rotate and the head to move. 

So what do you do? Get a SemiDisk, quick. It’s a large capacity semiconductor memory board that is driven by software to 
operate like a disk drive. Without all the waiting. Do everything you'd do on a floppy or hard disk, with no modifications to your 
software or hardware. Two board sizes are available: 512K and 1 Megabyte. (the highest density microcomputer memory 
board in the world) And you can put up to 8 megabytes in a system by adding more storage boards. 

What do you need to use it? Just an S-100 system with CP/M 2.2. Or a TRS-80 Model 2 system with 
CP/M 2.2. Or an IBM Personal Computer. That's it. No special processors, DMA, I/O, or disk controllers are required. Plug it in 
and run the installation program, and you're on your way. Fast! Even better, we supply full source code to the driver software, in 
case you'd like to do your own interfacing. 

Best of all, the SemiDisk’s price won't warp your wallet. Compare specs, cost/megabyte, storage capacity, and 
compatibility with the competition. You'll see that the SemiDisk is a disk emulator truly worthy of the name. SemiDisk has 
battery-backup capability, too. 

Consider our limited warranty: A full year, covering all parts and labor. Consider our liberal 15 day return policy. Price? 
$1995 for 512K byte SemiDisk, $2995 for 1 Megabyte SemiDisk. Both from stock. $10.00 for manual. VISA, Mastercard, COD 
orders accepted. Dealer and OEM inquiries welcomed. (Specify system type and disk format when ordering.) 


Someday, you'll get a SemiDisk. 
Until then, you'll just have to......... wait. 


SemiDisk P.O. Box GG 
SYSTEMS:  Beaverton,or97075 ~—(503)-642-3100 


Call (503)-646-5510 for CBBS®/NW, a Semi-Disk-equipped computer bulletin board. N 0 WA T | NG 
SemiDisk trademark of SemiDisk Systems; TRS-80 trademark of Radio Shack 


TM. 
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-INTERSTELLAR:DRIVE“ 
eo _A SOLID STATE DISK EMULATOR 


> | UG Save valuable time! 
4 5 to 50 times faster 
performance than floppy disks 
and Winchester drives 


PION’S INTERSTELLAR DRIVE is designed for use with a 
family of interfaces and software packages. Currently avail- 
able are interfaces for IBM, $100, TRS80, Apple, SS50, and 
most Z80 uP, and software for most popular operating systems. 
Additional interfaces are continually being developed for the 
most popular computers. 


5 . . P 
- dct al $4¢ Price for 256KB unit [includes interface and software] 

, i plus tax (where applicable) and shipping ml 
computer 3 productivity 1 095. Visa and Master Card accepted. 
The INTERSTELLAR DRIVE is a high performance O 
data storage subsystem with independent power Pl ms v INC. Tel.(617)923-8009 
supply, battery backup, and error detection. It has 101R Walnut St ,Watertown MA 02172 

id 4 


256KB to 1 Megabyte of solid state memory integrated TRS80 trademark of Tandy Corp. Apple trademark of Apple Computers 
to perform with your Operating system. Interstellar Drive trademark of PION, Inc. 
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68000 


Fully configured hard disk development systems, based on CompuPro hardware, are now available from Gifford Computer 
Systems. The total price with hardware and software? Only $9990. All you need is an RS-232 terminal to be up and running. 
Each system is covered by a two year, 24 hour replacement warranty. Systems are available for delivery now. 








Hardware Software 
L) 8 MHz Motorola MC68000™ CPU L) CP/M-68K™ from Digital Research 
L] 256K high speed static RAM LJ C compiler from Digital Research 
L) 2.4 Mbyte floppy disk storage L] 68000 assembler from Digital Research 
L) 21 Mbyte formatted Winchester disk LJ Mince visual editor from Mark of the Unicorn 
LJ 9 serial ports a ee 
CL) Real time clock/calendar i | | _ 
LJ 20 slot IEEE 696/S-100 motherboard Sea 
Upgrades for CompuPro based computers. rT ions 
[1 CompuPro™ 68000 CPU (8 MHz)............. $ 850.00 oe 
CL] CP/M-68K™ from Digital Research............ s 350.00 I _ Please 
L] 20 Mbyte Winchester disk subsystem with 4 els 

GSB crete ae Ne See ee $3,595.00 Address 

Ny 

CP/M is a registered trademark of Digital Research. CP/M-68K is a trademark of Digital OPlasiac se 


Research. MC68000 is a trademark of Motorola. Mince is a trademark of Mark of the Unicorn. 
CompuPro is a trademark of Godbout Electronics. 


GIFFORD COMPUTER SYSTEMS CENTERS (1) SAN LEANDRO, CA 94577 (415) 895-0798 0. SAN FRANCISCO, CA 94104 (415) 391-4570 
1 LOS ANGELES, CA 90064 (213) 477-3921 0 OKLAHOMA CITY, OK 73112 (405) 840-1175 D0 HOUSTON, TX 77046 (713) 877-1212 O 
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New Software from CompuView 


Mainframe Features for Microcomputers 





MODEM-86 
Communications for 
CP/M-86 and MSDOS 


MODENM-86 is the first truly universal 
communication program. It allows 
you to access a dial-up computer, 
capture and store the data on disk, or 
transfer files back and forth (using 
X-ON/X-OFF). Single and multiple 
files (both ASCII and Binary) may also 
be transferred reliably with error 
checking/correction between any 
system running MODEM86 or the 
popular MODEM4 and MODEM/7 
programs. The help command, 
command menu (expert mode turns 
menu _ off), and directory display 
simplify operation. 

The unique installation supports 
the IBM PC and Displaywriter, other 
popular 8086 computers and many 
S-100 I/O boards. Finally you can 
communicate with almost any other 
computer. 


VersionforCP/M-860rMSDOS. .$89 
ForbothCP/M-86andMSDOS .9120 








COMPUVIEW ADVANCED CP/M-86 
FOR IBM PERSONAL COMPUTER 


Advanced features include built-in horizontal scrolling and screen line editing. 
Includes ability to read/write IBM CP/M-86 and PCDOS disks, emulation of 
popular CRT terminals, a menu driven configuration, higher disk capacity and 
serial file transfer with other computers. Special versions are available to support 
80 track drives, TECMAR, DaVong and other hard disks. 


EPCOT fess 34 spew meee pee ae OS Se aga gOS ae Os pew evalbree s $325 
Relat ese Clie Re WESECAE sis ihe ie ci aero Ole: bly oe My orpypinis Nuala eauniaae Seale $425 


V-DISK - An extension to our CP/M-86 intended for software distributors. Allows 
production of common double density disks (Televideo 802, DEC VT180, NEC 
PC8000, SuperBrain, etc.)ontheIBMPC ..........----- $500, plus $40/format 


V-SPOOL - 16K Software Print Buffer 


Instantly buffers up to 16K of text destined for the printer in memory. Instead of 
waiting for the text to print, you retain complete computer control while the 
buffered text is sent to the printer. Never loses your keystrokes! Your time savings 
will be substantial, and the operation as simple as a single command. Requires no 
hardware or software modifications, just CP/M 2.2. Occupies only 3K of memory 
plus the size of the variable printbuffer ....... 0.6.0.0 e sees eee eee eens $79 


BIOS FOR CP/M-86 
AND MSDOS 
Call for details on CP/M-86 BIOS for popular S-100 disk controllers (track 


buffering available) and MSDOS BIOS for hard disks and CompuPro disk 
controllers. 


V-COM DISASSEMBLER 
Labels, ASCII, Exceptional Speed 


No other Z80 CP/M disassembler produces understandable source code as 
quickly as V-COM. It is INTEL and ZILOG compatible, and features easy to read 
code with a cross reference table. Best of all, it can create source code with user 
defined labels, storage areas, and ASCII strings. 

Exceptionally speed - disassemble a typical 12K .COM file into a 76K ASM file 
containing 7500 lines of source code and a 33K cross reference file in under two 
minutes with 8” SD floppies. (About five times faster than others). 

Two user created auxiliary files can specify labels for 8 and 16 bit values and the 
location of storage areas, tables and ASCII strings. The disassembled code can be 
sent to the console, the disk, the printer, or any combination at once. 

Each package includes a 30 page manual, sample program files and variations 
of V-COM compatible with the TDL, MAC and ZILOG assemblers. Feature for 
no other disassembler at any price evencomes close. ..............+2.04. $80 
WicirnibOuilys 2 Cin cae ee ten ae seers ube Aly are hen ale $12 
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V-BUG - A Z80 
Debugger 


V-BUG is a combination ROM resi- 
dent monitor, I/O handler and 
program debugger. Includes 
diagnostic and simple communi- 
cation capability, flexible 1/O 
assignments, CP/M compatability, 
complete program debugging with a 
disassembler and EPROM burner. 
Commands are specified in full words 
or abbreviations, allowing unlimited — 
expandability. Intended for installation 
into 5K of EPROM. Complete ms 
75 


PRODUCTS, INC. 


1955 Pauline Blvd., Suite 200, Ann Arbor, Michigan 48103, (313) 996-1299 


Now for Concurrent CP/M-86 


VEDIT- The Clear Choice for Programmers 


Plus Features for Fast & Efficient Word Processing 





Increasing your productivity is what a good text editor is 

all about. VEDIT excels by giving you a unique combin- COM PA RE VEDIT : _ 
ation of extensive and easy to use editing features. Feature yen qordt2e® words 
Customizability and complete hardware Support. So 





mre , ; True Full Screen Editin Yes Yes Yes 
compare VEDIT. You Il find everything you expect ina Edit files one disk in iencths Yes Yes Yes 
good editor plus a variety of time saving features which Compact and fast Yes Yes No 
only VEDIT offers. Display of line and column # Yes No Yes 
Set/Goto text markers Yes No Yes 
; ‘Undo’ key to restore line Yes No a (2) 
ovate otal, si sneer baie cay lh He ae Automatic Indent/Undent Yes No No 
y ¥ Keyboard, or a layout you are already familiar | Adjustable tab positions Yes No Yes 
: with - simplifying your Repeat function key Yes Yes No 
usage and easing your Text move and copy Yes Yes Yes 
learning. While most edit- Scratchpad buffers 10 Only 1 
ors lose text if you run out Load/Save buffers on disk Yes No 
cpne SE abi erik VEDIT let Flexible command mode Yes Yes 
CUSTOMIZABLE —— — ive: Berea: a eMail: lege Yes No 
FULL SCREEN EDITOR you delete files or change Directory display Yes No 
disks. VEDIT is the result Edit additional (small) 
of continuous enhancement and feedback from our near- : files oe ee bin oi 
nsert another di tle es es 
ee UES, Unlimited file handling Yes No 
For program development it surpasses any other editor - eabhathont: disk buffering Yes Yes 
; | ry from ‘Full Disk Yes No 
with more extensive file handling, important command Change disks while editing Yes No 
macro capability and special features for Pascal, PL/1, Startup command file Yes No 
‘C’, Cobol, Assembler and others. With VEDIT you will Program CRT function keys Yes No 
reduce your program editing time by 30% as compared to Mami Wrap and reformatting ed eu Secu 
rinting imple SIV 
PyS east Word processor. Print formatting No No Yes 
, Menu driven installation Yes No Yes 
For word processing, VEDIT has word wrap, adjustable Support newest CRT terminals Yes No No 
margins, reformatting of paragraphs, word and Support smart CRT functions Yes No Some 
paragraph functions and simple printing with imbedded Customizable keyboard layout Yes No No 


rinter control characters. Available for CP/M-86 Since 1981 ? a 
P Available for MSDOS Since 1981 ? Yes 





Command macros let you perform editing tasks you 
might otherwise not even attempt. Time consuming tasks 
for other editors (such as translations or extensive 
search/replace on many files), can be done by VEDIT 
without your intervention, even overnight if you choose. 


Please specify your microcomputer, video board or the 
CRT terminal version, 8080, Z80, or 8086 code, Operating 
system and disk format. 

VISA & MasterCard 


VEDIT supports all of the new CRT terminals, video VEDIT - Disk and Manual 


boards and 8080, Z80 and 8086 computers. We have been is sets Sale ta i idiot See | an 4 = 
consistently first to support new computers - first for Klariiateil Ve Sk cA Tee Ne ee $18 
CP/M-86, first for MSDOS. And we will support you with Sait seas as Bae agr ch ak a 
any technical assistance you may need. 
Zenith Z100 and Z89 e DEC VT180 e Televideo 802 
For the full story, purchase VEDIT risk free. Evaluate the TRS-80 I, ll and 16 © Xerox 820 ¢ Apple Ii Softcard 


125 page manual and if you are not satisfied, return the SuperBrain ¢ NorthStar e Cromemco ¢ Altos ¢ Vector 
package (disk unopened) for a courteous refund. MP/M e CP/M-86 e MP/M-86 e MSDOS e PCDOS 


IBM Personal Computer and IBM Displaywriter 


CP/M and MP/M are registered trademarks of Digital Research inc WordStar and WordMaster are registered 
trademarks of MicroPro international Corporation. Apple Il is a registered trademark of Aprle Computer. Inc 
MS-DOS and Softcard are trademarks of Microsoft TRS-80 Is a trademark of Tandy Corporation IBM is a 
trademark of International Business Machines 








PRODUCTS, INC. 
1955 Pauline Blvd., Suite 200 e Ann Arbor, Michigan 48103 e (313) 996-1299 


IN AUSTRALIA DISTRIBUTED BY SOFTWARE SOURCE PTY. LTD. 
Circle no. 86 on reader service card. 89 OXFORD ST., BONDI JUNCTION, SYDNEY - (02) 389-6388 
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@ BS 
Bring the flavor of Unix 
to your Z80 CP/M system 
BS ce) 
with Unica 

“Unicum: a thing unique in its kind, especially an example of writing. 
Unica: the plural of unicum.” 

The Unica: aunique collection of programs supporting many features of the 
Unix operating system never before available under CP/ M. The Unica are 


more than software tools; they are finely crafted instruments of surgical 
quality. Some of the Unica are: 


be - binary file compare, display differences in hex 

cat -  catenate files (vertically) 

cp - copy one or more files, even between users 

dm -. disk mapper, reports free blocks and directory space 
fid - file identification by unique numbers (CRC’s) 

he - horizontal file catenation and column permutation 

In - create file links (multiple names for one file) 

ls - intelligent directory lister, optional multi-columns 

mv -_—smove (rename) files, even between users 

rm - remove (delete) files, with optional verification 

sc - source file compare, with resynchronization 

sfa - set/reset file attributes, optional verification 

sp - spelling error corrector, with 80,000 word dictionary 
sr - search multiple files for a pattern 

srt - in-memory file sorter, optional duplicate line omission 
tee - pipe fitting (copy input stream to multiple outputs) 

tr - transliterate (translate character codes) 
wc - word counter, counts characters, words, and lines 
wx - word extractor, copies each word to a separate line 


Each Unicum understands several flags (“options” or “switches”) which 
control program alternatives. No special “shell” is needed; Unica commands 
are typed to the standard CP/M command interpreter. The Unica package 
supports several Unix-like facilities, such as filename user numbers: 

sc data.bas;2 data.bas;3 . 
(compares files belonging to user 2 and user 3); 
Wildcard patterns: 

rm -v *tmp* ag 
(types each filename containing the letters TMP and asks whether to delete 
the file); 
I/O redirection: 

ls -a >proj.dir 
(writes a directory listing of all files to file “proj.dir”); 
Pipes: 

dm b: | sr free >lst: 
(creates a map of disk B:, extracts those lines in the map which contain the 
word “free”, and prints them on the listing device). 


The Unica are written in XM-80, a low level language which combines 
rigorously checked procedure definition and invocation with the versatility 
of Z80 assembly language. XM-80 includes a language translator which turns 
XM-80 programs into source code for MACRO-80, the industry standard 
assembler from Microsoft. It also includes aMACRO-80 object library with 
over forty “software components”, subroutine packages which are called to 
perform services such as piping, wildcard matching, output formatting, and 
device-independent I/O with buffers of any size from 1 to 64k bytes. 


The source code for each Unicum main program (but not for the software 
component library) is provided. With the Unica and XM-80, you can 
customize each utility to your installation, and write your own applications 
quickly and efficiently. Programs which you write using XM-80 components 
are not subject to any licensing fee. 


Extensive documentation includes tutorials, reference manuals, individual 
spec sheets for each component, and thorough descriptions of each 
Unicum. 


Update policy: each Unica owner is informed when new Unica or 
components become available. At any time, andas often as you like, you can 
return the distribution disk with a $10 handling fee and get the current 
re of the Unica and XM-80, with documentation for all new or changed 
software. 


The Unica and XM-80 (which requires MACRO-80) are priced at $195, or 
$25 for the documentation. The Unica alone are supplied as *.COM 
executable files and are priced at $95 for the set, or $15 for the 
documentation. Software is distributed only on 8” floppy disks for Z80 CP/M 
version 2 systems. All orders must be paid in advance; no COD’s or 
purchase orders, please. Quantity discounts are available. Shipment outside 
of the US or Canada costs an additional $20. Bank checks must be in US 
funds drawn on a US bank. 


Knowlo 
P.O. Box 283-E SY 
Wilsonville, Oregon 97070 


Visa/Mastercard customers call (503) 639-3420 for next day shipment. 
CP/M is a trademark of Digital Research. Unicum and Unica are trademarks of 
Knowlogy. Unix is a trademark of Bell Telephone Labs. XM-80 is a trademark of 
Scientific Enterprises. Z80 is a trademark of Zilog Inc. 
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Iry this with an ordinary computer. 


The new Epson HX-20 is no ordinary computer. 
Not by a long shot. It’s the world’s only Notebook 
Computer with the power of a desktop and the 
portability of a handheld. 

So you can do serious computing, data proces- 
sing, even word processing. Anytime. Anywhere. 

To start with the HX-20 has 16K RAM (option- 
ally expandable to 32K), 32K ROM (optionally 
expandable to 64K), RS-232C and serial inter- 
faces, a full-size ASCII keyboard, a built-in micro- 
printer with dot addressable graphics, a scrollable 
LCD screen, five programmable function keys, 
and... well, that’s just the beginning. | 

The HX-20 is small enough to tuck inside a 
briefcase or under your arm. It runs on internal 
power for 50-plus hours and recharges in eight. It 
lets you interface with peripherals like MX Series 
printers, the CX-20 battery-powered acoustic 
coupler, a barcode reader, and audio cassette. 
And you can even get it with options like a micro- 





cassette drive, ROM cartridge, floppy disk and 
display controller. 

Now, prepare to have your mind boggled by 
one more feature: the price. The Epson HX-20 
Portable Notebook Computer retails for less than 
$800. That’s right — less. Which means it’s just 
right for students, businesspeople, kids — any- 


body who's looking for an affordable way into 


serious computing. 

Powerful. Portable. Affordable. The HX-20 is 
just what you’d expect 
from Epson. 

The extraordinary. 





EPSON AMERICA, INC. 


COMPUTER PRODUCTS DIVISION 





3415 Kashiwa Street + Torrance, California 90505 + (213) 539-9140 


Circle no. 77 on reader service card. 





MACROTECH International Corporation 





Image achieved by DGS’ CAT 1600 Series 
color video graphic workstation. Picture 
courtesy of Digital Graphic Systems, Inc. 
See story below. 


GRAPHICS: 
NOW MAX-IMIZED 


CANOGA PARK—March 30, 1983—The 
decreasing costs and increasing density of 
memory made possible the present boom in 
digital graphics. Graphic systems designers 
are now able to take another major step with 
the introduction of MAX-M, a one megabyte 
memory board for $1983. As large size sys- 
tem memory and multi-megabyte Virtual 
Disk, MAX-M opens up major new low cost 
implementations. 
~~ Wayne Maw, Director 

of R&D for RGB Dynam- 
ics, Salt Lake City, Utah, 
reports, “My application 
is dependent on speed. 
With the Macrotech dy- 
namic board, I have the 
needed speed’? The RGB 
system is a Z80-based, 
high resolution color directory system for 
shopping malls, due for April release. 

Empirical Research Group of Kent, Wash- 
ington, creates a state-of-the-art high 
resolution color video graphics system by 
integrating their fast 68000 computer, Macro- 
tech system memory, and the color video 
image processor from Digital Graphic Sys- 
tems, Inc., Palo Alto, California. Radcliffe 
Goddard of Digital Graphics states, “High 
speed image processing requires large system 
memory to provide instantaneous display 
frame paging: 

The demand for MAX-M by the graphics 
industry was nearly instantaneous following 
the initial Macrotech announcement. ful 








-100 World News | 


22133 Cohasset Street, Canoga Park, California 91303 ° 213-887-5737 


MAX—256K to 1M 





S-100 Memory 


CANOGA PARK — March 30, 1983— Mike 
Pelkey, Macrotech International president, to- 
day released details of the revolutionary 
MAX line of S-100 memory boards. Pelkey 
stated: “IEEE-696 now has a new standard 
for dynamic memory.. The MAX product line 
offers 256K to 1M, at a price that ranges down 
to less than $0.00023 per bit’ Pelkey contin- 
ued, “The MI product line now includes our 
ultra fast (70 ns) 128K static memory, with 
battery backup capability, plus the 150 ns 
dynamic memories—in every 128K step from 
256K through 1M (1024K) bytes, and add-on 
kits to permit field upgrade of sizes’ 

The extreme density of the MAX family is 
made possible through the use of proprietary 
PALs (programmable array logic). Also stated 
as available for add-on to any size MAX is 







































SIZE P/N PRICE 
128K 128-ST $1232 
256K MAX-256 $1108 


PRICE INDEX 


Static Memory 
Dynamic Memory 


24-bit 384K MAX-384 1292 
Addressing 512K MAX-512 1647 
768K MAX-768 1815 
896K MAX-896 1859 
1M MAX-M 1983 

With 16-bit MS Addressing option, add $91 
; FROM/TO P/N PRICE 
Upgrade Kits 256K/384K MKT-2/3 $ 192 


256K/512K MKT-2/5 692 
256K/768K MKT-2/7 876 
256K/896K MKT-2/8 967 
_256K/1M MKT-2/M 1060 
384K/512K MKT-3/5 600 
- 384K/768K MKT-3/7 784 
384K/896K MKT-3/8 876 
384K/1M MKT-3/M 968 
512K/768K MKT-5/7 284 
512K/896K MKT-5/8 376 
512K/1M MKT-5/M 468 
768K/896K MKT-7/8 192 
768K/1M  MKT-7/M 284 
896K/1M MKT-8/M 192 


M3 option MKT-M3 121 


Software (provided on 8" disk) 

Virtual Disk for MP/M IIl* and CP/M 2.2, 
CP/M 3.0* Bios modules, 

CP/M memory tests 

Manuals (sold separately) 

128/ST 

MAX Technical Manual 


a SS 


Circle no. 59 on reader service card. 


Macrotech’s popular M3 memory mapping 
architecture. M3 permits the 16-bit address 
space of an 8-bit processor to be dynamically 
mapped in 4K pages into as much as 16 mega- 
bytes of physical memory. © 

Parity error detection and 8/16 bit data 
transfer capabilities are provided as standard 
on the MAX series memory board. fall 


Software for M3 
Available 


BURBANK — March 30, pee 
1983—“M3 bank switch- 4 

ing for 8-bit processors 4 

ismuch more useful with } 
the new creative systems 
programs, states Dan 
West of Westcom Sys- 
tems Inc. MP/M II* disk » 
intensive applications ™ 
are greatly improved with the new Virtual 
Disk routines now available through Macro- 
tech OEM’s and dealers for their M> mem- 
ory boards. 

Westcom Systems, as the software consult- 
ing firm for Macrotech, has also provided sub- 
routine listings to easily incorporate M? 
mapping into the new CP/M 3.0* (CP/M 
Plus*) Bios module. The advantages of CP/M 
3.0* with disk buffering, hashed directories, 
and user program expansion go hand in hand 
with Macrotech’s flexible “bank switched” 
memory capabilities. 













All Macrotech software and manuals 
are available through Dan West's 
Compuserve account #70250,102. 

Leave comments/questions as E-Mail. 


These new techniques can combine the 
above features with custom needs of the 
future, such as printer buffering, multi-page 
display and memory-intensive graphics dis- 
plays. 

The software listings are included in the 
Macrotech memory board manuals and are 
optionally available on 8” diskettes. hill 





